Вобшивке корабля пробоина в форме круга. можно ли заделать эту дыру,если нам дан квадратный кусок фанеры со стороной a

Var d,a: integer;
begin
write('Диаметр пробоины: ');
readln(d);
write('Сторона куска фанеры: ');
readln(a);
if a>d then writeln('Пробоину можно заделать')
else writeln('Пробоину заделать нельзя');
end.

Пример:
Диаметр пробоины: 5
Сторона куска фанеры: 6
Пробоину можно заделать