Розв’язок задачі з Абрамова №257б

Всі умови | Умова: Дано символи s1, s2, ... Відомо, що символ s1 відрізняється від знаку оклику і що серед s2, s3,. .. є принаймні один знак оклику. Нехай s1, ..., sn - символи даної послідовності, що передували першому знаку оклику (n наперед невідоме). З'ясувати, чи входить в послідовність s1, ..., sn буква ю. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №257)

program pr257_2;
var
  s : string;
  i : integer;
begin
  write('s = '); readln(s);
  for i := 1 to length(s) do
  begin
    if (s[i] = '!') then break;
    if (s[i] = 'u') then
    begin
      writeln('Yes');
      readln;
      exit;
    end;
  end;
  writeln('No');
  readln;
end.