program TimSoLonNhat;
var
  n, i, number, max_num: integer;
begin
  write('Nhap so luong so nguyen: ');
  readln(n);
  max_num := -32768; {gan gia tri ban dau cho max_num}
  for i := 1 to n do
  begin
    write('Nhap so nguyen thu ', i, ': ');
    readln(number);
    if number > max_num then
      max_num := number; {cap nhat gia tri cho max_num neu can}
  end;
  writeln('So lon nhat la: ', max_num);
  readln;
end.