Пусть элементами круга

являются радиус (первый элемент), диаметр (второй элемент) и длина окружности

(третий элемент). Составить программу, которая по номеру элемента запрашивала

бы его соответствующее значение и вычисляла бы площадь круга.

Решение на паскале!

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.