Найти длину окружности l и площадь круга s заданного радиуса r: l
=2*п* r, s=*r квадрат 2 вывести на екран наименьшее значение

program RoundLS;

uses

 Math;

var

 R, L, S: Double;

begin

 Write ('Введите радиус: ');

 ReadLn (R);

 L := 2 * Pi * R;

 S := Pi * R * R;

 if L < S then

   WriteLn ('Длина окружности = ', L :15 :5)

 else

   WriteLn ('Площадь круга = ', S :15 :5);

 ReadLn;

end.