Написать программу ** языке Паскаль.Известна сторона квадрата А и радиус круга R.Какая из...

Question

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

Answer 1

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