Дано стороны прямоугольника а в, и радиус окружности r, как проверить поместится ли прямоугольник в окружности?

Прямоугольник поместится в окружности, если его диагональ меньше диаметра окружности. поэтому нужно проверить: if  sqrt(a*a + b*b) < = 2*r then print "поместится" if  sqrt(a*a + b*b) > 2*r then print "не поместится" или в одну строку if  sqrt(a*a + b*b) < = 2*r then print "поместится" else  print "не поместится" заметьте, я написал а*а и в*в вместо a^2 и b^2, потому что операцию  умножения компьютер делает намного быстрее, чем возведение в степень.

Var x,y,z: integer; begin write('введите x, y, z: '); readln(x,y,z); if (x mod 4=0) and (y mod 4=0) and (z mod 4=0) then       begin       x: =x*2;             y: =y*2;       z: =z*2       end       else           begin           x: =-x;           y: =-y;           z: =-z           end; writeln(x,' ',y,' ',z) end.

Разрешения         глубина                            |4|             |8|           |16|       |24|640х480               |150|      |300|      |600|    |901.4| 800х600                |234.4|  |468.8|  |937.5|  |1406.3| 1024х768              |384|      |768|      |1536|    |2304| 1280х1024            |640|      |1280|     |2560|    |3840| я искал размер изображения, в кбайтах. а то не написано, что надо вписать в таблицу