pascal abc.тема:строки.Нарисуйте пожалуйста блок-схему

[sfuwf]

var s,s1:string;
n,i:integer;
begin
writeln('введите слова');
readln(s);
if (pos('но',s)<>0) and (pos('он',s)<>0) then writeln('yes') else writeln('no');
end.

[Rin]

Советую перевестись на филфак. Только время и деньги зря потратите при таком подходе к учебе.