Помоните в построении блок=схемы:
Program NumberSix;
uses crt;
var a:array [1..3,1..3] of Integer;
b:array [1..3,1..3] of Integer;
c:array [1..3,1..3] of Integer;
i,j:Integer;
Begin
randomize;
For i:=1 to 3 do
For j:=1 to 3 do
Begin
a[i,j]:=random(30);
b[i,j]:=random(30);
c[i,j]:=a[i,j]+b[i,j];
end;
clrscr;
Writeln ('Matrix A');
for i:=1 to 3 do begin
for j:=1 to 3 do
write (a[i,j]:3,' ');
writeln;end;
Writeln ('Matrix B');
for i:=1 to 3 do begin
for j:=1 to 3 do
write (b[i,j]:3,' ');
writeln;end;
Writeln ('Summa dvuh matric ravna');
for i:=1 to 3 do begin
for j:=1 to 3 do
write (c[i,j]:3,' ');
writeln;end;
End.