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

var   a, m : integer; // объявляем переменные целочисленного типа.begin  writeln (\'введите последовательность положительных чисел, окончание ввода - ноль:\');  readln(m); // считываем первое число, считаем его максимальным.  a:= 1;  while a <> 0 do    // начало цикла.      begin         readln (a);          // считываем число, введенное с клавиатуры.         if (a > m) then   // если число больше максимального.         m := a;             // считаем текущее число максимальным.      end;  write (\'Максимальное число из введенной последовательности равно: \', m); // вывод строки.end.