Deret Perhitungan Perkalian pada Pascal

Dalam kali ini dosen kita menyuruh kita untuk berhitung perkalian dari angka 1 sampai angka 5,... kayak anak SD!!! Tp dalam perkuliahan perhitungan tersebut dimasukkan ke dalam program yaitu pascal hayo gimana hayo? tenang saja disini aku kan ku pas tuntas tugas temen-temen berikut soal dan jawabannya:

1x1=2 2x1=2 dst
1x2=2 2x2=4 5x5=25
1x3=3 ...
1x4=4 ...
1x5=5 ...

Jawaban kodenya sebagai berikut :

program for_bersarang;
uses crt;
var
i,j,z,a,b,c,d,e,f,g,h:integer;
begin
clrscr;
for i:=1 to 1 do
for a:=2 to 2 do
for c:=3 to 3 do
for f:=4 to 4 do
for g:=5 to 5 do
begin
for j:=1 to 5 do
begin
z:=i*j;
b:=a*j;
d:=c*j;
e:=f*j;
h:=g*j;
writeln (i,'x',j,'=',z,' ',a,'x',j,'=',b,' ',' ',c,'x',j,'=',d,' ',' ',' ',f,'x',j,'=',e,' ',' ',g,'x',j,'=',h);
end;
readln;
end;
end.

Good luck buat temen-temen yang lagi ngerjain tugas segitu banyaknya,...! thanks before