Двух уровневое меню!!

[Gim]

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

Код: Выделить всё

 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.

[Хыиуду]

Вы бы хоть писали, что программа должна делать!
Первый цикл, очевидно, ищет сумму цифр в числе. Второй - сумму нечетных по порядку цифр минус сумму четных. Третий - то же, что и первый, но число задано строкой. И при чем здесь меню?

[atavin-ta]

Ты для начала уточни для какой это оси.