walleri1
Program MAX; var a:integer;{само проверяемое число} m:integer;{максимально число} begin m:=0;{начальное значение максимального числа} writeln('Введите ваше число:', '(Если захотите выйти, напишите ноль)':3); readln(a); while (a <> 0) then begin If (a > m) then begin m:= a; end; readln(a); end; writeln('Максимально число:', m:3); End.
Answers & Comments
var
a:integer;{само проверяемое число}
m:integer;{максимально число}
begin
m:=0;{начальное значение максимального числа}
writeln('Введите ваше число:', '(Если захотите выйти, напишите ноль)':3);
readln(a);
while (a <> 0) then begin
If (a > m) then begin
m:= a; end;
readln(a); end;
writeln('Максимально число:', m:3);
End.