Ответ:

program z_1;

var P, R, S: real;

begin

 write('Введите радиус круга: ');

 read(R);

 writeln('Длина окружности: ', 2*pi*R);

 writeln('Длина окружности: ', pi*R*R);

end.

Объяснение: