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

program red;var a,max:integer;beginmax:=-10000;readln(a);while a<>0 do beginif max<a then max:=a;readln(a);end;writeln(max);end.