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

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