blob: 79dfb5475793c02b3d3b9bbdb2772f5268119283 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Program Example57;
{ Program to demonstrate the SeekEof function. }
Var C : Char;
begin
{ this will print all characters from standard input except
Whitespace characters. }
While Not SeekEof do
begin
Read (C);
Write (C);
end;
end.
|
