Пожалуйста помогите составить программу ** Pascal

Question

Пожалуйста помогите составить программу на Pascal

---

Comments

begin var x: real; var max := real.MinValue; repeat x := ReadlnReal(); if x > max then max := x; until x = 0; Print('Максимальное число:', max)end.

Answer 1

//PascalABC  (версия 3.4.2, сборка 1889 от 04.12.2018)

var

n, m : integer;

begin

writeln('Определение максимального числа последовательности');

writeln('положительных чисел');

writeln;

writeln('Вводите после стрелки числа. Для завершения ввода введите ноль.');

writeln;

m := 0;

repeat

 n := ReadlnInteger('-> ');

 if n > m then m := n;

until n = 0;

writeln;

writeln('Максимальное число: ', m)

end.

---