Question

Помагите решить задачу на Pascal.
Дано: R=18см.
Найти: длину окружности L=2пиR

Answer 1

program dlina_okrujnosti;
var r,l: real;
begin
r:=18;
l:=2*pi*r;
writeln ('Длина окружности равна ',l);
end.