program z_1;
var P, R, S: real;
begin
write('Введите радиус круга: ');
read(R);
writeln('Длина окружности: ', 2*pi*R);
writeln('Длина окружности: ', pi*R*R);
end.
Объяснение:
