Question

Найти длину окружности p заданного радиуса r
через паскаль​

Answer 1

program okr;

const pi = 3.14;

begin

var r, p: real;

writeln('Введите радиус окружности');

readln (r);

p = 2 * pi * r;

writeln('Длина окружности = ', p);

end.