Contoh program mencari luas lingkaran menggunakan Pascal:
Program
mencari_luas_lingkaran;
uses wincrt;
const
pi=3.14;
var
luas,jari
: real;
begin
writeln('masukan Jari jari dari
sebuah lingkaran : ');
readln(jari);
luas:=3.14*jari*jari;
writeln('maka hasil dari ',pi,' x
',jari,' x ',jari,' = ',luas:9:0);
end.