Contoh Program Perulangan Turbo Pascal

uses wincrt;
var
  i,j:integer;
  begin
for i:=1 to 5 do
begin
writeln('pascal');

for j:=1 to 3 do
writeln(i:0,j:3);
end;
end.

Semoga bermanfaat :)