Задачка по Pascal

[LAM 757]

Помоги пожалуйсто преобразовать задачку в "Двух уровневом меню:тремя циклами"!! только если не трудно распишите по подробнее, а то я не сильно шарю в этом. Здача: Дано целое число K. Найти знакочередующуюся сумму цифр числа К. (Пусть запись К в десятичной системе есть a[n]...a[2] a[1] a[0];найти a[0]+a[1]+a[2]+...+a[n]).
Решение:

найти a[0]+a[1]+a[2]+...+a[n]

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

Найти знакочередующуюся сумму цифр: a[0]-a[1]+a[2]-...+a[n]

program Project2;
var K,S,i:integer;
begin
write('K='); Readln(K);
S:=0;
i:=0;
while K<>0 do
begin
if (i mod 2=0) then begin S:=S+(K mod 10); write('+',K mod 10); end
else begin S:=S-(K mod 10); write('-',K mod 10); end;
inc(i);
k:=K div 10;
end;
write('=',S);
readln
end.

Вот это решение надо сделать "Двух уровневом меню:тремя циклами"...

[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.

program Project2;
var K,S,i:integer;
begin
write('K='); Readln(K);
S:=0;
i:=0;
repeat
if (i mod 2=0) then begin S:=S+(K mod 10); write('+',K mod 10); end
else begin S:=S-(K mod 10); write('-',K mod 10); end;
inc(i);
k:=K div 10;
until k=0;
write('=',S);
readln
end.

вот еще 2 циклами! в одну прогу с Двухуровневым меню сами собьете!