Ответ: //Pascal ABC.NET v3.1 сборка 1172//6Var r:integer;begin readln(r); writeln(‘S=’,pi*sqr(r)); writeln(‘L=’,pi*2*r);end.//7Var a,b:integer;begin read(a,b); writeln(‘S=’,pi*a*b); writeln(‘L=’,pi*(a+b));end.