Var max,h:integer;
begin
max:=-maxint-1;
repeat
read(h);
if(h>max) then max:=h;
end;
until h >0;
writeln(max);
end.
using System.Collection.Generic;
List<int> arr = new List<int>();
int max = Convert.ToInt32(Console.ReadLine()); // максимальный порог
for(int i = 0; i < max;i++)
{
arr.Add(Convert.ToInt32(Console.ReadLine()));
}
arr.Sort();
Console.WriteLine(arr[max]);
Var max,h:integer;
begin
max:=-maxint-1;
repeat
begin
read(h);
if(h>max) then max:=h;
end;
until h >0;
writeln(max);
end.
using System.Collection.Generic;
List<int> arr = new List<int>();
int max = Convert.ToInt32(Console.ReadLine()); // максимальный порог
for(int i = 0; i < max;i++)
{
arr.Add(Convert.ToInt32(Console.ReadLine()));
}
arr.Sort();
Console.WriteLine(arr[max]);