Решить на pascal. дано: r=18см. найти: длину окружности l=2пиr

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