Паскаль. дана площадь круга и площадь квадрата. поместится ли круг в квадрат? квадрат в круг?

Var a,b:integer;
begin
writeln('Введите площадь круга, затем квадрата');
read (a,b);
if b>a then
writeln('Поместится')
else
writeln('Не поместится');
end.

Var a,d,krug,kvad: real; 
 begin  write('Введите площадь круга: '); 
 readln(krug); 
write('Введите площадь вадрата: '); 
 readln(kvad); 
 d:=2*sqrt(krug/Pi); 
 a:=sqrt(kvad); 
 if d<a then  writeln('Поместится') 
 else  writeln('Не поместится');
end.