Задан радиус окружности. Найти площадь и длину окружности (программа Паскаль)

Question

Задан радиус  окружности. Найти площадь и длину окружности

Answer 1

USES Crt;
VAR
   R : INTEGER;
   S,L: REAL;
BEGIN
  ClrScr;
  Write(‘ Введите радиус окружности   ‘);
  ReadLn(R);
  {Pi - зарезервированное значение}
  S:=Pi*R*R;    {Вычисление площади окружности}
  L:=2*Pi*R;     {Вычисление длины окружности}
  WriteLn(‘ Площадь окружности = ’,S:4:2);
  WriteLn(‘ Длина окружности = ‘,L:4:2);
END.