Даны целые числа а1, а2, а3. Получить целочисленную матрицу [bij]i,j=1,2,3, для которой bij=ai-3aj — Pascal(Паскаль)

Var 
   A:Array[1..3] of Integer;
   B:Array[1..3,1..3]of Integer;
   I,J:Integer;
 
begin
   For I:=1 to 3 do Readln(A[I])
   For I:=1 to 3 do
        For J:=1 to 3 do B[I,J]:=A[I]-3*A[J]
end.