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

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