ايم كد اماده برو حالش رو ببر mspsoft By Sina

کد:
Program
Warshall;
var
matrix:array[1..40, 1..40] of integer;
i,j,k,e, m,n:integer;
Begin
writeln(' Please Enter Number Of Rowe And Cloumn:');
readln(a);
writeln('---------------');
writeln;
for
i:=1 to e do
begin

writeln (' Enter Number ',i,' Of Row:');
for j:=1 to e do

readln(matrix[i,j]);
writeln('----------');
writeln;
end
;
for
k:=1 to e do
begin

writeln ('W:',k);
for
i:=1 to e do

if
matrix[i,k]=1 then
begin
for j:=1 to e do
if matrix[k,j]=1 then

matrix[i,j]:=1;
end
;
for
m:=1 to e do
begin
if m<>1 then
begin

writeln;
writeln;
end
;
for
n:=1 to e do
begin

write(' ',matrix[m,n],' ' );
end
;
end
;
writeln;
writeln;
readln;
end
;
End