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

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

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.

 

 

 

var

i: integer;

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

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.