var
  a: string;
  l, i, j, n, k, max, maxk: integer;
begin
  write('Введите строку символов: ');
  readln(a);
  
  l := length(a);
  max := 0;
  for i := 1 to l do
    begin
      j := i;
      k := j;
      n := 0;
      while (a[j] = '1') or (a[j] = '2') or (a[j] = '3') or (a[j] = '4')  or (a[j] = '5') or (a[j] = '6') or (a[j] = '7') or (a[j] = '8') or (a[j] = '9') or (a[j] = '0') or (a[j] = ' ') or (a[j] = '.') or (a[j] = ',') or (a[j] = ';') or (a[j] = ':') or (a[j] = '!') or (a[j] = '?') do
        begin
          if j < l then 
            j := j + 1
          else
            break;
          n := n + 1;
        end;
      
      if max < n then
        begin
          maxk := k;
          max := n;
        end;
    end;
    
    writeln('Максмальная последовательность символов состоит из ',max,' элементов');
    write('Последовательность: ');
    for i := maxk to maxk+max do
      write(a[i]);

end.