напишите программу на языке паскаля через цикл while, которая определяет максимальное из введенных чисел с клавиатуры(ввод чисел заканчивается числом 0).

Program red;
var a,max:integer;
begin
max:=-10000;
readln(a);
while a0 do begin
if maxreadln(a);
end;
writeln(max);
end.