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

var   r , s: real;  // объявляем переменныеbegin   write(\'Введите значение R: \');  // выводим на экран текстовую строку   readln(r);  // считываем значение введенное с клавиатуры    s:= 3.14 * power(r,2);   // вычисляем формулу   writeln (\'Результат вычисления по формуле равен: \', s); // выводим результат на экран

end.