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

Var d, a: integer;

begin

write ('Диаметр пробоины: ') ;

readln (d) ;

write ('Сторона куска фанеры: ') ;

readln (a) ;

if a>d then writeln ('Пробоину можно заделать')

else writeln ('Пробоину заделать нельзя') ;

end.

Пример:

Диаметр пробоины: 5

Сторона куска фанеры: 6

Пробоину можно заделать