Написать программу. Данн радиус окружности. найти длину окружности и его площадь

Question

Написать программу. Данн радиус окружности. найти длину окружности и его площадь

Answer 1

Var
pi, R:real;
begin
pi := arccos(-1);
write('введите радиус -> ');Readln(R);
Writeln('C = ', 2*pi*R);
Writeln('S = ', pi * R * R);
end.

Пример:
введите радиус -> 3
C = 18.8495559215388
S = 28.2743338823081

Answer 2

Var
}
r,d:integer;rar
}
begin
writeln('введи значение радиуса ',r);
readln(r);
d:=r*2;
writeln('диаметр ',d);
end.