var
r,h,s:real;
begin
Read(r);
h:=2*Pi*r;
s:=2*pi*sqr(r);
Writeln('Площадь круга: ', S:5:2);
Writeln('Периметр окружности: ', h:5:2);
end.
не знаю как требуют у вас, но я постарался сделать более менее понятно
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024
Монитор
-----------------------------------