Зайві пропуски

Задано рядок. Напишіть програму, яка видалить з цього рядка усі зайві пропуски. Пропуск будемо вважати зайвим, якщо:

• він знаходиться на самому початку рядка, до самого першого слова;
• він знаходиться у кінці рядка, після самого останнього слова;
• декілька пропусків розміщені між двома словами (простіше кажучи, якщо слова розділені більш ніж одним пропуском, тоді усі пропуски крім одного — зайві).

Вхідні дані

Задано рядок S (0 ≤ |S| ≤ 255). Рядок містить лише латинські літери і пропуски.

Вихідні дані

Потрібно вивести рядок без зайвих пропусків.

Вхідні дані

Alexandr      Sergeevich   Pushkin   

Вихідні дані

Alexandr Sergeevich Pushkin

program propyski;

var b : string;

i: integer;

BEGIN

readln (b);

i:=1;

while b[i]=' ' do delete(b,1,1);

i:=length(b);

while b[i]=' ' do begin delete(b,i,1); i:=i-1; end;

for i:=1 to length(b) do

if (b[i]=' ') and (b[i+1]=' ') then delete(b,i+1,1);

write(b);

END.