var r, S: real;r := 5; // задаем радиус кругаS := Pi r r; // вычисляем площадь кругаwriteln('Площадь круга равна: ', S:0:2); // выводим результатend.
var r, S: real;
r := 5; // задаем радиус круга
S := Pi r r; // вычисляем площадь круга
writeln('Площадь круга равна: ', S:0:2); // выводим результат
end.