Переделать задачу в процедуры.

[Lombard]

Безымянный.JPG
Переделать задачу в процедуры:

uses crt;
var
a: array[1..20,1..20] of integer;
b: array[1..10,1..10] of real;
c: array[1..10,1..10] of real;
n,i,j,k:integer;
Begin
clrscr;
randomize;
write('BBedite n=');
readln(n);
writeln;
for i:=1 to n do
for j:=1 to n do a[i,j]:=random(9)+1;
write('Matrica A:');
writeln;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
for i:=1 to n do
for j:=1 to n do b[i,j]:=1/(i+j-1);
write('Matrica B:');
writeln;
for i:=1 to n do begin
for j:=1 to n do
write(b[i,j]:7:3);
writeln;
end;
for i:=1 to n do
for j:=1 to n do begin
c[i,j]:=0;
for k:=1 to n do
c[i,j]:=c[i,j]+a[i,k]*b[k,j];
end;
write('Matrica C:');
writeln;
for i:=1 to n do begin
for j:=1 to n do
write(c[i,j]:7:3);
writeln;
end;
readln;
End.

[fbus]

если еще актуально, аська в подписи. стучись

[Lombard]

Спасибо, уже не актуально, помогли )