Program zadacha;vara,b:real;beginwriteln('vvedite dva chisla');read(a,b);if a>b then writeln(a,'>',b);if a<b then writeln(a,'<',b);if a=b then writeln(a,'=',b);end.
Program n1;
var a,max: integer;
begin
max:=-1;
readln(a);
while a<>0 do
begin
if a>max then max:=a;
readln(a);
end;
writeln(max);
end.
Цикл встречается в сказке Репка
Что надо делать там вапросы ???