Pascal 5 класс известны площади круга и квадрата. определить : a уместится ли круг в квадрате b уместится ли квадрат в круге

Program ploscad;
Var a,b,c:integer;
Begin
Readln(a,b);
If a>b then writeln('квадрат уместится в круге') else writeln('круг уместится в квадрате');
Readln;
End.