Басы: S=0,i=2
i<=20
S=s+i
i=i+2​

var i: integer;

s,v: real;

begin

  read(i,v);

  case i of

      1: s: =pi*v*v;

      2: s: =pi*v*v/4;

      3: s: =v*v/pi/4;

  end;

  writeln(s);

end.

они будут меньше, быстрее, умнее и, если верить рекламе программного обеспечения, дружественнее.

нужно идти по указателю серый волк, так как он ложный