Напишите программу, которая вводит радиус круга и вычисляет площадь этого круга и длину окружности. На языке Паскаль можно использовать встроенную константу Pi, равную числу .

Помогите пожалуйста
Заранее спасибо

var r:real;

begin

write ('Введите радиус круга: ');

read(r);

writeln ('Площадь круга равна: ', pi*sqr(r):0:3);

writeln ('Длина окружности равна: ', 2*pi*r:0:3);

end.