Составьте программу, по которой на экран будет выведена вся таблица умножения

Var  b,a: integer;   begin   for b: =1 to 10 do begin   for a: =1 to 10 do begin     writeln(a,'*',b,'=',a*b);   end;   end; end.получается не в виде таблицы  а в столбик

// f# [< entrypoint> ] let main argv =     let generatetable n m =         array2d.init n m (fun i j -> (i+1) * (j+1))     let printmatrix (matrix: int[,]) =         printf "     "         for i = 0 to (array2d.length1 matrix) - 1 do             printf "%4d " (i+1)         printf "\n"         printf "     "         for i = 0 to (array2d.length1 matrix) - 1 do             printf ""         printf "\n"         for j = 0 to (array2d.length2 matrix) - 1 do             printf "%2d |" (j+1)             for i = 0 to (array2d.length1 matrix) - 1 do                 printf "%4d " matrix.[i, j]             printf "\n"         printf "\n"     let inputarray = generatetable 10 10     printmatrix inputarray     system.console.readkey true |> ignore     0

const

  n=10;  

var

  a: array[1..n] of integer;

  i,x,k,j,s: integer;  

begin

randomize:

for i: =1 to n do a[i]: =random(255);     {формируем случайный массив}

for i: =1 to n do write(a[i],' ');                         {выводим этот массив его на экран}

writeln('x='); read(x);                                                 {вводим x, в программе}

for i: =1 to n do if x=a[i]                     {если х=a[i] тогда}

then for j: =i to n do                                                  {начинаем новый цикл с i до n}

              s: =s+a[j];                                                                 {вычисляем сумму}  

writeln(s);                                        

end;