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