Информатика! написать программу выводящую на экран таблицу умножения на к. ( по паскалю)

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.

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