program string01;
var
 s: string;
 i, vahekoht: integer;
begin
 writeln('Sisesta oma ees- ning perekonnanimi');
 readln(s);
 writeln;
 vahekoht:=pos(' ', s);
 writeln('Sinu eesnimes on ',vahekoht-1,' t„hte ning');
 writeln('perekonnanimes ',length(s)-vahekoht,' t„hte');
 writeln('Sinu perekonnanimi on ', copy(s, vahekoht+1, length(s)-vahekoht));
 write('Sinu eesnimi tagurpidi on: ');
 for i:=vahekoht downto 1 do
     write(s[i]);
end.