В ячейке c2 записана формула =$А$4+5
​

var k,n,i,s:integer;
begin
readln(k,n);
for i:=0 to n do  s:=s+k+i;
writeln(s)
end.

var k,n,i,s:integer;
begin
readln(k,n);
for i:=0 to n do  s:=s+k+i;
writeln(s/(n+1))
end.

var r,n,i,p:integer;
begin
readln(r,n);
p:=1;
for i:=0 to r do  p:=p*(n+i);
writeln(p)
end.

var r,i,p,x:integer;
begin
readln(r);
x:=1;
for i:=1 to r do
  begin
  x:=x*i;
  p:=p+x;
  end;
writeln(p)
end.

var r,i,p,x:integer;
begin
readln(r);
p:=1;
for i:=1 to r do
  begin
  x:=x+i;
  p:=p*x;
  end;
writeln(p)
end.

var m,n,t,i:integer;
begin
readln(t);
writeln('N':3,'M':5);
for i:=1 to (t div 2) do
  begin
  n:=i*2;
  m:=sqr(n)-n;
  writeln(n:3,m:5);
  end;
end.

var
  y,m,n,i:integer;
  x:real;
begin
readln(n,m);
writeln('Y':3,'X':10);
for i:=1 to m do
  begin
  y:=n*i;
  x:=sqr(y)*(sqr(y)-y)/y;
  writeln(y:3,x:10);
  end;
end.

const

 maxsize = 100;

var

 i, n, temp: integer;

 a: array[1..maxsize] of integer;

begin

 i := 1;

 write('Введите количество элементов последовательности: ');

 read(n);

 writeln('Вводите элементы последовательности:');

 while (n > 0) do begin

   read(temp);

   if temp mod 2 = 0 then begin

     a[i] := temp;

     i := i + 1;

   end;

   n := n - 1;

 end;

 n := i - 1;

 if n = 0 then  

   writeln('В последовательности нет чётных элементов')

 else begin

   writeln('Массив из чётных элементов последовательности:');

   for i := 1 to n do

     write(a[i]:4);

 end

end.