Contoh Program Paskal Looping For do

uses crt;
var x,y:integer;
begin
for x := 1 to 2 do
begin
for y:= 1 to 2 do
write(y); write('ok'); end;
readln end.


Hasil:

12ok12ok


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