Question

6. Вычислить площадь круга и длину окружности по введенному значению радиуса. 7. Вычислить площадь S и периметр L эллипса по введенным значениям полуосей a и b:

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

//6
Var
 r:integer;
begin
 readln(r);
 writeln('S=',pi*sqr(r));
 writeln('L=',pi*2*r);
end.


//7

Var
 a,b:integer;
begin
 read(a,b);
 writeln('S=',pi*a*b);
 writeln('L=',pi*(a+b));
end.