Напишите программу в которой осуществляется ввод целых чисел ввод осуществляется до тех...

Question

Напишите программу в которой осуществляется ввод целых чисел ввод осуществляется до тех пор пока не будет введен 0 и Определение максимального числа наибольшее сведенных чисел используется оператор repeat

Answer 1

Var a, max: integer;
begin
read(a);
max:=a;
repeat 
read(a);
If a>max then max:=a;
until a<>0;
writeln(max);
end.