Question

Написать программу на языке Паскаль.
Известна сторона квадрата А и радиус круга R.Какая из фигур имеет большую площадь?

Answer 1

var a,r:real;
begin
read(a,r);
if (a*a>pi*r*r) then writeln('Квадрат')
else if (a*a<pi*r*r) then writeln('Круг')
else writeln('Площади равны');
end.