Contoh Program Paskal 2

uses crt;
var K: integer;
begin
clrscr;
K:=3;
while K<5 do
begin
inc(K);write(K,' ');
end;
readln;
end.

Hasil:

4 5



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