Синформатикой. решение нужно написать на языке программирования turbo pascal. ( решить в паскале) с клавиатуры вводится n чисел. найти максимальные.

Сам пременные объявишь

begin

 read(max);

 read(min);

 while(n <> 0) do // пока не равну нолю делать то то. ноль - знак окончание ввода чисел

  if max < min then min := max;

 writeln(max);

end.