[Pascal]Задание с циклом Repeat

[Uralomat]

1. Вывести все двухзначные числа кратные числу 8.
2. Составить программу, которая просит ввести пять чисел. Если последнее введенное число равно 0, то программа закрывается с выдачей сообщения "Работа программы закончена", в противном случае программа выдает сумму введенных чисел.

[newerow1989]

var i:integer;
begin
   i:=10;
   Repeat
      If i mod 8=0 then
         Writeln(i);
      Inc(i);
   Until i>=100;
   Readln;
end.

var i,a,s:integer;
begin
   i:=0;
   s:=0;
   Repeat
      Inc(i);
      Write('#',i,' = '); Readln(a);
      s:=s+a;
      If i=5 then
      begin
         If a=0 then
            Writeln('Rabota zakonchena!') else
            Writeln(s);
         Break;
      end;
   Until false;
   Readln;
end.

[Serge_Bliznykov]

вторая решена слишком замудрённо, да и не нужно прерывание бесконечного цикла по break.

сравните:

var i,a,s:integer;
begin
   i:=0;
   s:=0;
   Repeat
      Inc(i);
      Write('#',i,' = '); Readln(a);
      s:=s+a;
   Until i=5;
   If a=0 then
          Writeln('Rabota zakonchena!') 
    else
         Writeln(s);
   Readln;
end.