الگوریتم وارشال

[آبجی]

اینم از الگوریتم وارشال، نوشه شده با برنامه پاسکال.
همون بالایی هست که لینکش رو گذاشتم، فقط یه کمی دست کاریش کردم.

ProgramWarshall;var matrix:array[1..40, 1..40] of integer;
i,j,k,e, m,n:integer;Beginwriteln(' Please Enter Number Of Rowe And Cloumn:');
readln(a);
writeln('---------------');
writeln;
fori:=1 to e do
begin
writeln (' Enter Number ',i,' Of Row:');
for j:=1 to e do
readln(matrix[i,j]);
writeln('----------');
writeln;end;fork:=1 to e do
begin
writeln ('W:',k);fori:=1 to e doifmatrix[i,k]=1 then
begin
for j:=1 to e do
if matrix[k,j]=1 then
matrix[i,j]:=1;end;form:=1 to e do
begin
if m<>1 then
begin
writeln;
writeln;end;forn:=1 to e do
begin
write(' ',matrix[m,n],' ' );end;end;
writeln;
writeln;
readln;end;End
.