Program primer;usescrt;Var i,x:integer;a:array [1..9] of integer;beginfor x:=1 to 9 do    for i:=1 to 9 do    writeln (x,*,i,=,x*i);    end.

работает, только выводит не очень красиво