Program Example8;
uses Crt;

{ Program to demonstrate the ClrScr function. }

begin
  Writeln('Press any key to clear the screen');
  readln;
  ClrScr;
  Writeln('Have fun with the cleared screen');
end.