Var a: array[1..10, 1..10] of real; i, j, k,n,r,t: integer; begin  Randomize;  for i := 1 to 10 do begin for j := 1 to 10 do begin    a[i, j] := 1;    Write(a[i, j]:4);    end;Writeln;end;Writeln;Writeln;for n:=1 to 4 dofor k:=2 to n+1 do begin//a[n, k]-1;a[n, k-1]:= a[n, k]-1;end;
for i := 1 to 10 do begin    for j := 1 to 10 do begin      Write(a[i, j]:4);    end;Writeln;end;
end.

будут равны 0 = 10