Вычислить площадь круга и длину окружности с радиусом r. Pascal

Question

Вычислить площадь круга и длину окружности с радиусом r. Pascal

Answer 1

Program n1;
var r: real;
begin
write('введите радиус: ');
readln(r);
writeln('длинна: ',r*2*pi);
writeln('площадь :',r*r*pi);
end.