var r, S: realr := 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.