Помогите в Паскале написать программу, пожалуйста.

[Saaashka]

Для заданных матриц А и В найти (А+ 3*В).

[ryton]

то есть сумма элементов массива А плюс сумма элементов В умноженная на три?Так?

[Saaashka]

Сообщение от ryton

то есть сумма элементов массива А плюс сумма элементов В умноженная на три?Так?

Да .

[Snoopy]

var
a,b,s:array[1..2,1..2] of real;
i,j :integer;
begin
a[1,1]:=1; a[2,1]:=3;
a[1,2]:=2; a[2,2]:=4;
b[1,1]:=1; b[2,1]:=3;
b[1,2]:=2; b[2,2]:=4;
  for i:=1 to 2 do
    for j:=1 to 2 do
      begin
      s[i,j]:=a[i,j]+b[i,j]*3;
      writeln(s[i,j]);
      end;
readln;

[ryton]

var
a,b:rray[1..10,1..10] of real;
i,j :integer;
sum1,sum2:real;
begin
for i:=1 to 10 do
for j:=1 to 10 do
begin
readln(a[i,j]);
readln(b[i,j]);
end;
sum1:=0;
sum2:=0;
for i:=1 to 10 do
for j:=1 to 10 do
begin
sum1:=sum1+a[i,j];
sum2:=sum2+b[i,j];
end;
sum1:=sum1+sum2*3;
writeln(sum1);

[Манки100]

В тексте найти наибольшее и наименьшее слово и поменять его местами