blob: 9c2d62a02534b8b12100858d05c77a572b39d51c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
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.
|
