{* Задача 307 *}

Unit ZADACH307;
Interface
Implementation
Begin
 writeln('Имеется строка символов, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд.');
End.

Program zadach307;

Uses zadach307.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Const {* Предопределенные *}
  ts = ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0']
Var {* В работе нам потребуются переменные: *}
  s   : String;
  max : String;
  tmp : String;
  i   : integer;
  j   : integer;
Begin
  clrscr; {* Очистка экрана *}
  a := 0;
  max := '';
  writeln('Введите строку символов: ');
  readln(s);
  For i := 1 To length(s) Do {* Увеличиваем i от 1 до length(s) с шагом 1 *}
  Begin
    If s[i] In ts Then
      tmp := tmp + s[i];
    If Not(s[i + 1] In ts) Then
    Begin
      If length(tmp) > length(max) Then
        max := tmp;
      tmp := '';
    End;
    
  End;
  writeln('В наиболее длинной последовательности идущих');
  writeln('подряд цифр содержится ', length(max), ' символов');
  readln
End.