mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 09:39:32 +01:00
16 lines
273 B
ObjectPascal
16 lines
273 B
ObjectPascal
Program Example58;
|
|
|
|
{ Program to demonstrate the SeekEoln function. }
|
|
Var
|
|
C : Char;
|
|
|
|
begin
|
|
{ This will read the first line of standard output and print
|
|
all characters except whitespace. }
|
|
While not SeekEoln do
|
|
Begin
|
|
Read (c);
|
|
Write (c);
|
|
end;
|
|
end.
|