Составить программу для вычисления по формуле S=ПR²

var

r, s: real; / / объявляем переменные

begin

write ('Введите значение R: '); / / выводим на экран текстовую строку

readln (r); / / считываем значение введенное с клавиатуры

s: = 3.14 * power (r, 2); / / вычисляем формулу

writeln ('Результат вычисления по формуле равен: ', s); / / выводим результат на экран

end.