Напечатать таблицу умножения (программа Паскаль)

program tablumnog;
uses crt;
var a,b,n:integer;
 begin
for a:= 1 to 9 do  begin
for b:=1 to 9 do
 write (a:3,'*',b,'=',a*b:2);
    writeln  ;
 end;
end.