Contoh Program Paskal 1

uses crt;
var a:integer;
begin
clrscr;
for a:= 1 to 2 do
writeln('ujian');writeln('tengah');writeln('semester');
readln;
end.


Hasil:

ujian
ujian
tengah
semester

Sumber : Pra UTS ATA 2011//2012 Algoritma & Pemprograman 2