PascalABC, что здесь не правильно?

var b,d,S1,S2: real;
begin
write('Площадь квадрата равна ');
read('S1');
write('Площадь круга равна ');
read('S2');
b:=sqr(S1);
d:=2*sqr(S2/Pi);
if b<=d then write('поместиться') else write('не поместиться')
end.