Дано целое число n. вычислить 1/1! +1/2! +1/3! ++1/n!

на паскале:

program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

var

i,j,s: integer;

x: array[1..8,1..8] of integer;

y: array[1..10,1..10] of integer;

begin

s: =0;

for i: =1 to 8 do

for j: =1 to 8 do

begin

readln(x[i,j]);

if i< =j then s: =s+x[i,j];

end;

writeln("сумма для x=", s);

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

begin

readln(y[i,j]);

if i< =j then s: =s+y[i,j];

end;

writeln("сумма для y=", s);

end.