20
Объяснение:
var
a,b,i,k,j:integer;
s:array[1..100] of integer;
begin
read(a);
for i:=1 to a do
s[i]:=(i+3)*(i+1);
end;
b:=s[4];
k:=s[2];
j:=b-k;
write(j);
end.
20
Объяснение:
var
a,b,i,k,j:integer;
s:array[1..100] of integer;
begin
read(a);
for i:=1 to a do
begin
s[i]:=(i+3)*(i+1);
end;
b:=s[4];
k:=s[2];
j:=b-k;
write(j);
end.