Даны целые числа а1, а2, а3. Получить целочисленный массив В[1 ... 3, 1 ... 3], для которого B[i, j]=ai-3aj.

const n=3;

var i, j:integer;

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

b:array[1 ... n, 1 ... n] of integer;

begin

for i:=1 to n do

readln (a[i]);

for i:=1 to n do

begin

for j:=1 to n do

begin

b[i, j]:=a[i]-3*a[j];

write (b[i, j]:4);

end;

writeln;

end;

end.