Contoh Program Pascal

uses crt;

var a : integer :
begin
for a := 1 to 5 do
writeln(a);
readln;
end.