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

uses crt;
var
i,j:byte;
a:array[1..3] of integer;
b:array[1..3,1..3] of integer;
begin
clrscr;
for i:=1 to 3 do
 begin
  write('Vvedite a',i,'='); readln(a[i]);
 end;
for i:=1 to 3 do
 for j:=1 to 3 do
  b[i,j]:=a[i]-3*a[j];
writeln('Matrica b');
for i:=1 to 3 do
 begin
 for j:=1 to 3 do
  write(b[i,j]:6);
 writeln;
 end;
readln;
end.