составить программу нахождения плошади круга по его радиус который вводят с клавиатуры. в Pascal

var

r, s: real; / / объявляем переменные, в которых будем хранить значение радиуса и площади

begin

writeln ('Введите радиус круга'); / / вывод на экран текстовой строки

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

s: = 3.14 * power (r, 2); / / вычисляем площадь круга и записываем в переменную s

writeln ('Площадь круга равна = ', s); / / выводим на экран значение площади

end.