Поэкспериментируйте чтобы решить проблему. допустим вы хотите вставить сноску но внизу страницы отсутствует возможность вписать пояснение, так как там расположена большая таблица. как поменять в свойствах обтекание таблицы, что бы вставить сноску

Uses graphabc;   procedure draw(x, y, l, u : real; t : integer); procedure draw2(var x, y: real; l, u : real; t : integer); begin draw(x, y, l, u, t); x : = x + l*cos(u); y : = y - l*sin(u); end;   begin if t > 0 then beginl : = l/3; draw2(x, y, l, u, t-1); draw2(x, y, l, u+pi/3, t-1); draw2(x, y, l, u-pi/3, t-1); draw2(x, y, l, u, t-1); end else line(round(x), round(y), round(x+cos(u)*l), round(y-sin(u)*l))end; begin setwindowsize(425,500); setwindowcaption('фракталы: снежинка коха'); draw(10, 354, 400, pi/3, 4); draw(410, 354, 400, pi, 4); draw(210, 8, 400, -pi/3, 4); end.

// pascalabc.net 3.0, сборка 1066 const   s1='абвгабвг';   s2='12341234'; var   c: char;   i: integer; begin   write('введите букву класса: '); readln(c);   i: =pos(c,s1);   if i> 0 then begin       c: =s2[i];       case c of       '1': writeln('гимназический');       '2': writeln('');       '3': writeln('обычный');       '4': writeln('коррекционный')       end   end   else writeln('неверная буква') end. тестовое решение: введите букву класса: б примечание: работа программы также проверена в borland pascal 7.01