Бэтмен считал день удачным, если ему удавалось совершить подвиг, и неудачным, если его помощь была в этот день не нужна. Супергерой вёл дневник, в котором отмечал каждый день либо У (удачный), либо Н (неудачный). По строке, содержащей символы У и Н, определите самую длинную последовательность из удачных дней.

program luck;

var s: string;

max, k: integer;

begin

writeln ('Введите строку состоящую из букв У (Удачный) и Н (Неудачный) ');

readln (s);

max: = 0;

for i: integer: = 1 to length (s) do

begin

if s[i] = 'У' then

begin

k: = k + 1;

if k > max then max: = k

end

else k: = 0

end;

writeln ('Максимальное количество, подряд идущих удачных дней: ', max)

end.