В слове, состоящем из трёх двухсимвольных слогов, опреде¬лять номер слога "ро". Если такого слога нет, то вывести соответствующее сообщение.
желательно бы решение в Паскале

var s:string; k:integer; begin readln(s); k:=pos('ро',s); if k<>0 then writeln(k div 2+1) else writeln('"ро" нет :('); writeln('Нажмите Enter для выхода'); readln end.