задачи лучше все же давать по одной. Не всегда есть время и возможность решить обе задачи сразу.
вычисляем факториал
var
n : integer;
fac : biginteger := 1;
begin
write('введите n=');
readln(n);
if n < 0 then writeln ('n не может быть меньше 0')
else if n > 1 then begin
for var i := 1 to n do fac *= i;
writeln('n!=', fac);
end;
end.
вычисляем сумму
var
n : integer;
s : real;
begin
write('введите n=');
readln(n);
if n < 1 then writeln ('n не может быть меньше 1') else for var i := n downto 1 do s += (i+1)/(sqr(i)+1);
writeln('s=', round(s, 2));
end.