//PascalABC.NET 3.2 сборка 1218

//1
const
  a=2.1;
  b=1.8;
  c=-2.05;

Var
  i:integer;
begin
readln(i);
if i<4 then writeln(a/i+b*sqr(i)+c) else writeln(a*i+b*power(i,3));
end.

//2
Var
  i,sum:integer;
begin
for i:=-15 to 15 do
sum:=sum+i;
writeln(sum);
end.

//3
Var
  i,sum:integer;
  proi:BigInteger; //значение слишком велико, не знаю, сработает ли на ABC
begin
proi:=1;
for i:=18 to 721 do
if i mod 6=0 then
  begin
   sum:=sum+i;
   proi:=proi*i;
  end;
writeln('sum=',sum,' proi=',proi);
end.

//4
Const
  x=0.013;

Var
  sum,zna:real;
  i:integer;
begin
sum:=-11;
zna:=1;
for i:=1 to 10 do
  begin
    zna:=zna+2;
    sum:=sum+(i*2*power(x,i*2))/zna;
  end;
writeln(sum);
end.

//5
Var
  x,prib:integer;
begin
x:=-3;
prib:=0;
while x+prib*0.2<=3 do
  begin
    writeln('x=',x+prib*0.2,' y=',sqr(x+prib*0.2)+3*(x+prib*0.2)+7);
    inc(prib);
  end;
end.

//6
const 
 n=10;

Var
  ar:array[1..n] of integer;
  i,proi:integer;
begin
proi:=1;
for i:=1 to n do
  begin
    readln(ar[i]);
    if ar[i] mod 5=0 then proi:=proi*ar[i];
  end;
writeln(proi);
end.

Вопросы:
1. if
2. repeat-until, while, for
3. 10