Когда одно из высказываний является истинным или оба высказывания истинны
Пыль а особенно смола от сигарет которая оседает на оптике лазера!
Смотри вложение ->>
Если будут вопросы - пиши))
Var
s:string;
i,n,k:integer;
begin
Writeln('Введите текст: '); Readln(s);
n:=Length(s); k:=0;
for i:=1 to n-2 do
if s[i] in ['О','о'] then
if s[i+1] in ['Й','й'] then
begin Write(s[i+2]); Inc(k) end;
if k=0 then Writeln('"ой" в тексте не встречается')
end.