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

Var
n,max:Integer;
Begin
 max:=1;
 n:=1;
 While(n<>0) do
  begin
   Read(n);
   if (n>max) then max:=n;
  end;
  Writeln('Max number = ',max);
 end.