Program baris perkalian pascal dengan looping

uses wincrt;

var

   a,b:integer;

   begin

   writeln('=================================================================');

   writeln('                      Daftar List Perkalian                      ');

   writeln('=================================================================');

   write('    masukan jumlah baris = ');readln(a);

   write('    masukan jumlah kolom = ');readln(b);

   writeln;

   

   for a:=1 to a do

       begin

       for b:= 1 to b do

       write(a:4,'*',b,'=',a*b:2);

       writeln;

       end;

   writeln('=================================================================');

   writeln('                                           @andeebanditz.....!!!!');

   writeln('~~~~~~~~~~~~~~~~~~~~~~~~~terima kasih~~~~~~~~~~~~~~~~~~~~~~~~~~~~');

       

       

   end.