Сложно , кстати, лучше пишите текстом,а то картинки не всегда отображаются.
CLS
INPUT "n = ", n
P = 1
FOR i = 1 TO 2 * n
P = P * i
NEXT i
PRINT "P = "; P
END
Var
s: string;
begin
readln(s);
insert(',', s, Pos(' ', s));
writeln(s);
end.
K:=0
sum:=0
for i:=1 to 10 do
begin
if m[i]<0 then
begin
k:=k+1;
sum:=sum+m[i];
end;
end;
writeln(sum/k);
end.