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

program zz1;

var

L, r : real; / / задаем переменные не целого типа

begin

write (' введите радиус круга '); / / вводим с клавиатуры исходный радиус круга

read (r);

L:=Pi * r * r; / / вычисляем площадь круга по формуле

write (' площадь круга = ', L:5:2); / / выводим ответ, пять знаков для всего числа и два знака после точки

end.