program Project1;

{$APPTYPE CONSOLE}

//uses
//  SysUtils;

var
stroka:string;
dlinastroki:integer;

posledneeslovo:string;

konec,nachalo:integer;

slovopredlogenia:string;

z,i,room:byte;
begin
 writeln('vvedi stroky');              {задаю строку}
 readln(stroka);

dlinastroki:=length(stroka);            {ищу ее длинну}
writeln(dlinastroki);


for i:=dlinastroki downto 1 do     {поиск последнего пробела , наличие пробела в конеце не учтено}
 begin
  if ord(stroka[i])= 32 then
   begin
    room:=i;
    break;
   end;
 end;
writeln(room);


posledneeslovo:=copy(stroka,room+1,dlinastroki);   {последнее слово}
writeln(posledneeslovo);


nachalo:=1;
konec:=1;
i := 0;
while i <= length(stroka) do                                    {удаляю все последнии слова}
 begin
   i := i + 1;
  if ord(stroka[i])=32 then
   begin
    konec:=i;
    slovopredlogenia:=copy(stroka,nachalo,konec-nachalo);
     if posledneeslovo=slovopredlogenia then
      begin
       delete(stroka,nachalo,konec-nachalo+1);
      end;
      nachalo:=konec + 1;
   end;
 end;
writeln('stroka bez poslednego slova');
writeln(stroka);


readln;
end.