Напишите программу на Pascal ABC,которая ''решает ребус'':

Var s1,s2,s:string; i:integer; begin s1:='курица'; s2:='роза'; s:=s1[1]+s1[2]+s1[1]+s1[2]+s2; for i:=5 to length(s) do if s[i]='о' then s[i]:='у'; writeln(s); end. Результат: кукуруза