Código Delphi [-] var i: integer; m1, m2: array[1..10] of Cardinal; begin m1[1]:= 1; m2[1]:= 1; for i:= 2 to 10 do begin m1[i]:= i; m2[i]:= m2[i-1] * i; end; end;
var i: integer; m1, m2: array[1..10] of Cardinal; begin m1[1]:= 1; m2[1]:= 1; for i:= 2 to 10 do begin m1[i]:= i; m2[i]:= m2[i-1] * i; end; end;