С клавиатуры введи радиус окружности. Определи е что больше длина окружности или её S.

Question

С клавиатуры введи радиус окружности. Определи е что больше длина окружности или её S.

Answer 1

Program n1;
var r: real;
begin
readln(r);
if(pi*r*r<2*pi*r) then write('L>S');
if (pi*r*r>2*pi*r) then write('S>L');
end.