Contoh Program Pascal menggunakan if .. then

program point1;

uses wincrt;

var point:byte;

begin

write('masukkan point anda =');readln(point);

If point>100 Then

Writeln('Selamat Anda Menang')

else

writeln('Anda Belum Beruntung');

end.