нужно составить прогу=((

Question

2.Пусть элементами круга являются: 1- радиус R; 2-диаметр d; 3-длина окружности L. Составить программу, которая по номеру элемента запрашивала бы значение соответствующего элемента и вычисляла бы площадь круга

Инна Займенцева · Accepted Answer

program abc; 
var a,b:real; 
begin 
writeln('Vvedite ¹ operacii:'); 
readln(a); 
writeln('Vvedite znachenie:'); 
readln(b); 
if a=1 then writeln(PI*b*b) 
else if a=2 then writeln(PI*sqr(b/2)) 
else if a=3 then writeln(PI*sqr(b/(2*PI))) 
else writeln('Net takoi operacii'); 
end.