Задана окружность радиусом r=20 см . составите программу для нахождения её длины и площади ограниченного ею круга дано: r-радиус вход.s pi=3.14 найти; s-площадь . выходные s; с-длину алгоритм 1 ввести r 2 вычислить s=2*pi*sqr(r) 3 вычислить с=2*pi*r 4 вывести s,c решите подробно

Program test;
const PI=3.14;//Пи делаем константой, потому что оно не меняестся
var
  r,s,c:real;//Переменные типа real что бы можно было записывать дробные значения
begin
  Write('Введите радиус: ');
  Readln(r);//вводим радус
  s:=PI*sqr(r);//вычисляем площадь
  c:=2*PI*r;//вычисляем длину окружности
  Writeln('S = ',s);//
  Writeln('P = ',c);//Выводим результат
end.