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

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