подскажите в Pascal

[LAM 757]

Подскажите пожалуйсто как эти три цикла вбить в одну прогу с Двухуровневым меню??только плиз по подробнее
вот циклы:

program Project2;
var K,S:integer;
begin
write('K='); Readln(K);
S:=0;
repeat
begin
S:=S+(K mod 10);
write('+',K mod 10);
k:=K div 10;
until k=0;
write('=',S);
readln
end.


program Project2;
var s,i:integer;
k:string
begin
write('K='); Readln(K);
S:=0;
for i:=1 to length(k) do
if (i mod 2=0) then S:=S-((ord(K[i])-ord('0'))
else S:=S+ord(K[i])-ord('0')

write('=',S);
readln
end.


program Project2;
var i,S:integer;
k:string;
begin
write('K='); Readln(K);
S:=0;
for i:=1 to length(k) do
begin
S:=S+ord(K[i])-ord('0');
end;
write('s=',S);
readln
end.

[LAM 757]

хелп!!!!!!

[LAM 757]

плиз помогите времени в обрез(((((((

[ОДИНОЧЕСТВО В СЕТИ]

плиз помогите времени в обрез(((((((

Цена вопроса?

[LAM 757]

Завтро с утра сдавать, последний зачёт остался и последний раз у меня его принимают(( если не сдам то вылечу с коледжа, а теперь сами прикиньте что к чему....

[ОДИНОЧЕСТВО В СЕТИ]

если не сдам то вылечу с коледжа, а теперь сами прикиньте что к чему...

.
в одной из тем фигурировало что это сестры задачи!
ай-яй-яй как не хорошо врать!
помогу за 300 wmr!
я думаю что 300 не слишком большая цена за

если не сдам то вылечу с коледжа, а теперь сами прикиньте что к чему....

[LAM 757]

Да было такое! пришлось соврать, так как очень стыдно находясь на последнем курсе незнать этой елементарщины... и если не трудно поясни что такое 300 wmr???