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

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

begin

 var x := ReadInteger();

 var cont := new List<integer>;

 repeat begin

   cont.Add(x);

   x := ReadInteger();

 end;

 until x = 0;

 //Всё описанное выше можно сделать в одну строку. Но раз так надо..

 cont.Max.Println; //Выводим максимум

end.

Объяснение: