Пусть элементами круга являются радиус (первый элемент), диаметр (второй элемент) и длина окружности (третий элемент). Составить программу, которая по номеру элемента запрашивала бы его соответствующее значение и вычисляла бы п...

var   a: real;   k: byte; begin   writeln('1 - l okp.');   writeln('2 - r okp.');   writeln('3 - d okp.');   readln(k);   readln(a);   write('S = ');   case k of     1: writeln(sqr(a) / (4 * Pi):0:2);     2: writeln(Pi * sqr(a):0:2);     3: writeln(Pi * sqr(a / 2):0:2);     else writeln('?');   end; end.