Страницы 191-195 параграф 4 4 вопрос / задание 8, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение

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

program Z_8_5;

var

  x, max: integer;

begin

  write('Введи х ');

  readln(x);

  max := x;

  repeat

    write('Введи х ');

    readln(x);

    if max < x then max := x;

  until x = 0;

  writeln('Наибольшее введенное число = ', max)

end.