напищите программу, котораявычисляет длину окружности и площаль круга, если известен ражиус

program circle;

var

rad : real;

begin

writeln(' Введите радиус окружности: ');

readln(rad);

writeln(' Длина окружности : ', PI*2*rad, '.');

writeln(' Площадь окружности : ', PI*rad*rad, '.');

end.

var r:real;

begin

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

read(r);

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

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

end.