var a,l: string; b: array of string; i: integer;

begin

write('Введите строчку: ');

readln(a);

b := a.ToWords;

for i:=0 to length(b)-1 do begin

l:=b[i];

if pos('ар',b[i])<>0 then writeln(b[i])

end;

end.