Kopiranje, kompajliranje i izvođenje, postupak:

Briše se:
USES
WinCrt;

Dodaje se prije END.
  READLN;