Question

Напишите программу для решения геометрической задачи.
1. Найдите длину окружности и площадь круга заданного радиуса.

Answer 1

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

Answer 2

огромное спасибо))