Pierwszy program w Pascalu

program demo1;
uses crt;
begin
  clrscr;
  gotoxy(10,10);
  textcolor(yellow);
  write('To moj pierwszy program');
  readkey;
end.

program dodawanie; {naglówek programu}
uses crt; {deklaracja modułu crt}
var x,y,su:integer; {deklaracja zmiennych x, y, su typu całkowitego}

{część operacyjna programu}
begin
   clrscr; {czyść ekran}
   read(x,y); {czytaj}
   su:=x+y; {podstaw, przypisz}
   writeln(su); {pisz}
   readln;readln; {zatrzymaj}
end.