1. Дана последовательность операторов:
a:=1;
b:=2;
while a+b<8 do
begin
a:=a+2;
b:=b+2;
end;
s:=a+b
Сколько раз будет повторен цикл и какими будут значения переменных a, b,
s после исполнения этой последовательности операторов?
2. Проанализируйте следующий цикл:
while a В чём его особенность?
3. Напишите программу, в которой осуществляется ввод целых чисел (ввод
осуществляется до тех пор, пока не будет введён ноль) и определение
максимального (наибольшего) из введённых чисел.

Одна тонкость - разность первых  2-ух чисел это из первого вычитаем второе или из второго первое? 

Program Chisla;

Uses Crt;

var a,b,c,d,sum:real;

begin

     clrscr;

     write('Введите первое число: ');

     readln(a);

      write('Введите второе число: ');

      readln(b);     

      write('Введите третье число: ');

      readln(c); 

      write('Введите четвёртое число: ');

      readln(d);

       sum:=a+b+c+d;

       if ((a-b)>d) and (sum<=80) then writeln(c,d)

             else

                   if (a-b)>d  then writeln(a,b,c,d)

            else

                 if  (sum<=80)  then writeln(a,b)

                    else    writeln(a+5,b+5,c+5,d+5);

     readkey;

end.

var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) and (b>c) then writeln('c=',c,'b=',b,'a=',a) else
if (b>a) and (b>c) and (a>c) then writeln('c=',c,'a=',a,'b=',b) else
if (c>a) and (c>b) and (b>a) then writeln('a=',a,'b=',b,'c=',c) else
if (a>b) and (a>c) and (c>b) then writeln('b=',b,'c=',c,'a=',a) else
if (b>a) and (b>c) and (c>a) then writeln('a=',a,'c=',c,'b=',b) else
if (c>a) and (c>b) and (a>b) then writeln('b=',b,'a=',a,'c=',c) else
readln;
end.