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

program painnagato; uses crt; const n=3; var i,j: integer;   a: array[1..n] of integer;   b: array[1..n,1..n] of integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   for i: =1 to n do      begin          write('введите ',i,'-е число ');           readln(a[i]);       end;   writeln('результат: ');   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]: 5);               end;           writeln;       end; end.

const n=3; var i,j: integer; a: array[1..n] of integer; b: array[1..n,1..n] of integer; beginfor 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.