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