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.