Pascal (Free) Пусть элементами круга являютс радиус (1-й элемент), диаметр (2-й элемент),...

Question

Pascal (Free) Пусть элементами круга являютс радиус (1-й элемент), диаметр (2-й элемент), длина окружности (3-й элемент). по номеру одного из перечисленных элементов и его значению вычислить площадь круга

Answer 1

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.