var a,r,sa,sr:real;
begin
      write('Введите число a=');
      readln(a);
      write('Введите число r=');
      readln(r);
      sa:=sqr(a);
      sr:=pi*sqr(r);
      writeln('Площадь квадрата = ', sa, ', Площадь круга = ',sr);
      if sa<=sr then writeln('Площадь квадрата меньше или равна площади круга. Периметр квадрата = ',a*4);
      if sr<=sa then writeln('Площадь круга меньше или равна площади квадрата. Длинна окружности = ',2*pi*r);
end.