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

Спасибо!

var s1,s2,s:string; i:integer;begins1:='курица';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.Результат:кукуруза