Задана окружность радиусом R=20 см . Составите программу для нахождения её длины и площади ограниченного ею кругаДано: R-радиусВход.s Pi=3.14Найти; s-площадь .выходные s; с-длинуАлгоритм 1 Ввести R 2 Вычислить s=2*Pi*sqr(r)3 Вычислить с=2*Pi*r4 Вывести 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.