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

//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.