Question

С клавиатуры выводятся радиус круга и сторона квадрата. Определить что больше площадь круга или площадь квадрата

Answer 1

var

  r, a : real;

begin

  read (r, a);

  if pi * sqr (r) > sqr (a) then writeln ('Kruga')

  else if pi * sqr (r) < sqr (a) then writeln ('Kvadrata')

  else writeln ('=');

end.