var
s: string[70];
i, p: Byte;
begin
write('s = '); readln(s);
for i := 1 to length(s) - 2 do
if ((i = 1) or (s[i - 1] = ' ')) and (Copy(s, i, 3) = 'раз') then begin
p := Pos(' ', Copy(s, i, 255));
if p > 0 then writeln(Copy(s, i, p - 1))
else writeln(Copy(s, i, 255));
{
альтернативный вариант предыдущих двух строк
p := byte(p = 0) * 255 + p;
writeln(Copy(s, i, p - 1))
}
end;
end.