Pascal ABC. В файле в столбик записаны целые числа, сколько их – неизвестно. Напишите программу, которая определяет длину самой длинной цепочки идущих подряд одинаковых чисел и выводит результат в другой файл напишите подходящую программу.
10 класс.

у меня тоже даша получилось))

var alpha: real;

begin

  read(alpha);

  if alpha > 90 then write("tupougolnyj");

  if alpha = 90 then write("prjamougolnyj");

  if alpha < 90 then write("ostrougolnyj");

end.

самая крупная птица это страус к тому же он ещё не летает

program a1;

  uses crt;

var a,b,c,k: longint;

begin

  clrscr;

  write('введите первое число: '); readln(a);  

  write('введите второе число: '); readln(b);  

  write('введите третье число: '); readln(c);    

if a< b then k: =a else k: =b;

if b< k then k: =b;

writeln(k);

readln

end. 

если paskal abc, то выделенное можно не писать