Напишите программу.(в паскале) дан диаметр окружности. найти ее длину и площадь круга.

Var
d:real;
begin
read(d);
writeln(' Длина окружности = ',pi*d );
writeln(' Площадь круга  = ',(pi*d*d)/4 )
end.