Бэтмен считал день удачным, если ему удавалось совершить подвиг, и неудачным, если его помощь была в этот день не нужна.

program luck;var s: string;max, k: integer;beginwriteln(\'Введите строку состоящую из букв У (Удачный) и Н (Неудачный)\');readln(s);max:= 0;for i: integer:= 1 to length(s) dobeginif s[i] = \'У\' then begink:= k + 1;if k > max then max:= k endelse k:= 0end; writeln(\'Максимальное количество, подряд идущих удачных дней: \', max)end.