ПАСКАЛЬ
Задача на строки
Верно ли, что в строке встречается "оро" не менее двух раз? Для предложения "сорока и ворона часто присутствуют в сказках"- верно.

program oro2;

uses crt;

var

s:string;

i,k:integer;

begin

read(s);

i:=1;

k:=0;

while(i<length(s)-2)

do

begin

if (s[i]='о') and (s[i+1]='р') and (s[i+2]='о')

then

begin

i:=i+2;

k:=k+1;

end;

i:=i+1

end;

if k=2 then

write('Верно')

else

write('Нет')

end.