correction dcprat2

program pratique_2;

uses wincrt;

type
tab=array[1..10,1..10] of integer;



var
i,j,n:integer;
m:tab;

procedure saisin(var n:integer);
begin
randomize;
n:= 5 + random(16);
end;

procedure remplir_m( n:integer;var m:tab);
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
if i<= j then
m[i,j] := i*j
else
m[i,j] := 0;

end;
end;
end;
procedure affiche_m( var m:tab);
var
i,j:integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
write(m[i,j]:5);
end;
writeln ;
end;
end;
procedure diagonale( n:integer;var m:tab);
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
if i= j then
write(m[i,j]:5);

end;
end;
end;


begin
saisin(n);
remplir_m( n,m);
writeln('************ la matrice est : *************************');
affiche_m(m);
writeln('************ la diagonale principale est : *************************');
diagonale(n,m);

end .

cava mouch s3ib barcha mais chwaya tarkiz ama merci