ПОЖАЛУЙСТА!!!!!! Определить фигуру с наибольшей площадью: квадрат со стороной a, равносторонний треугольник со стороной b, окружность с радиусом R.ПАСКАЛЬ

var a,b,r,s1,s2,s3:real;
begin
writeln('a, b, r:');
readln(a,b,r);
s1:=a*a;
s2:=b*b*sqrt(3)/4;
s3:=pi*r*r;
writeln('s1 = ',s1:4:2,' s2 = ',s2:4:2,' s3 = ',s3:4:2);
if (s1>s2)and(s1>s3)
 then writeln('Квадрат имеет максимальную площадь = ',s1:4:2)
 else if (s2>s1)and(s2>s3)
        then writeln('Треугольник имеет максимальную площадь = ',s2:4:2)
        else writeln('Круг имеет максимальную площадь = ',s3:4:2);
end.

Пример:
a, b, r:
5 8 3
s1 = 25.00 s2 = 27.71 s3 = 28.27
Круг имеет максимальную площадь = 28.27