9 lines
129 B
ObjectPascal
9 lines
129 B
ObjectPascal
// Äåìîíñòðàöèÿ ðàáîòû ôóíêöèè eoln
|
|
begin
|
|
while not eoln do
|
|
begin
|
|
var c: char;
|
|
read(c);
|
|
write(c,' ');
|
|
end;
|
|
end. |