// Демонстрация работы функции eoln
begin
while not eoln do
var c: char;
read(c);
write(c,' ');
end;
end.
