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

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