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

Question

Напечатать таблицу умножения

Answer 1

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.