Создать модель использования ткани для шкатулки с pascal

Uses   graphabc;   var   x, y: word;     i: byte;   begin   setbrushstyle(bsclear);   setwindowwidth(590);   setwindowheight(390);   rectangle(5, 5, 585, 385);   x : = 25;   y : = 25;   circle(565, 25, 20);   circle(565, 365, 20);   circle(25, 365, 20);   repeat     circle(x, y, 20);     if (x < 565) and (y = 25) then x : = x + 20;     if (x = 565) and (y < 365) then y : = y + 20;     if (y = 365) and (x > 25) then x : = x - 20;     if (x = 25) and (y > 25) then y : = y - 20;   until (x = 25) and (y = 25);   rectangle(50, 50, 540, 340);   x : = 115;   for i : = 1 to 8 do   begin     circle(x, 210, 6);     circle(x, 210, 40);     circle(x, 210, 45);     x : = x + 51;   end;   x : = 95;   for i : = 1 to 11 do   begin     y : = 130;     line(x, y, x, y - 30);     y : = y - 30;     line(x, y, x + 30, y);     x : = x + 30;     line(x, y, x, y + 25);     y : = y + 25;     line(x, y, x - 20, y);     x : = x - 20;     line(x, y, x, y - 15);     y : = y - 15;     line(x, y, x + 10, y);     x : = x + 10;     line(x, y, x, y + 8);     y : = y + 8;     line(x, y, x - 3, y);     x : = x - 3;     line(x, y, x, y - 4);     y : = y - 4;     line(x, y, x - 3, y);     x : = x - 3;     line(x, y, x, y + 7);     y : = y + 7;     line(x, y, x + 10, y);     x : = x + 10;     line(x, y, x, y - 15);     y : = y - 15;     line(x, y, x - 18, y);     x : = x - 18;     line(x, y, x, y + 24);     y : = y + 24;     line(x, y, x + 30, y);     x : = x + 30;   end; end .

(sqrt(4)> 2) and (t> a) = ложь and  чтототам = ложь  ответ: ложь/false