Даны натуральное число n и символы S1,…,Sn

[Zhasik]

Даны натуральное число n и символы S1,…,Sn
b) выяснить, имеется ли среди S1,…,Sn пара соседствующих букв ”НО” или ”ОН”



zdravstvuite pomogite pojaluista! a to na ekzamen ne zapustyat!((( zaranie spasibo bol'shoe!

[Ponkole]

Задумайся: я школьник, у которого еще не началось программирование, просто интересуюсь программированием и решаю задачи за тебя, ну ели честно мне нравится это, но за вознаграждение.

uses CRT;
var r,l:char;
     n,i:integer;
    otbet:boolean;
begin
clrscr;
otbet:=false;
readln(n);
writeln;
for i:=1 to n do
begin
l:=r;
read(r);
if ((r='Н') and (l='О')) or ((r='О') and (l='Н') then
otbet:=true;
end;
clrscr;
if otbet then write(' присутствует ') else
 write('отсутствует');
end.