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

Question

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.

Иван Ткаченко · Accepted Answer

Апострофы убери при вводе.

Sitora Vip =) · Answer

У S1 и у S2 убери кавычки и всё будет работать.