program Project1;
 
{$APPTYPE CONSOLE}
var mes, mesK: string;
    per, vto: char;
    i: integer;
 
begin
Write ('Введите предложение :'); Readln (mes);
    for i := 1 to length(mes) do
     begin
       per := mes[i];
       vto := mes[i+1];
          if (per = ' ') and (vto = ' ') then
           mesK := ''
          Else
           mesK := per + vto;
    Write (mesk);
    End;
Readln;
end.