Program sederhana Pascal

Program sederhana menggunakan Prosedur

PROGRAM prosedur;

USES CRT;

PROCEDURE garis;

BEGIN

  WRITELN('----------------');

END;

BEGIN

  CLRSCR;

  garis;

  WRITELN('BELAJAR PROSEDUR');

  garis;

  READLN;

END.

Hasil :

-------------------------------

BELAJAR PROSEDUR

-------------------------------