program pascal perkalian menggunakan looping

contoh kode looping perkalian:

uses wincrt;
var
 a,n,i,hasil:integer;
begin
clrscr;
write('masukan angka yag di kali :');readln(a);
write('total angka yang ingin dikali:');readln(n);
hasil:=0;
writeln;
writeln('hasil pengulangan');
writeln;
for i := 1 to n do
begin
hasil := hasil + a;
writeln(i,'x',a,'=',hasil);
end;
readln;
end.        

contoh hasil dari kode di atas: