Укажите расширение универсального текстового формата, который сохраняет все форматирование, а также преобразует коды в команды, которые могут быть прочитаны и интерпритированы различными приложениями: а) html b) doc c) txt d) rtf

Скорее всего html. с ним могут работать другие программы и преобразует код в комманду

Спредоставленным условием явные проблемы. если взглянуть логически. то вероятное решение следующее: var x, k, m: integer; a: string; begin readln(a); x: =0; if ( copy(a, 2, 1) = copy(a, 6, 1) ) then        for k: =1 to length(a)-2 do            for m: =k+1 to length(a)-1 do                if ( copy(a, k, 2) > copy(a, m, 2) ) then                    x: =x+1;   writeln(x); end.

//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию uses graphabc; const       kegl = 40; var       space, line: integer; procedure m(cx, cy: integer); begin       moveto(cx, cy);       lineto(cx, cy - kegl );       lineto(cx + kegl div 2, cy);       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy); end; procedure i(cx, cy: integer); begin       moveto(cx, cy - kegl);       lineto(cx, cy );       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy); end; procedure r(cx, cy: integer); begin       moveto(cx, cy);       lineto(cx, cy - kegl);       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy - kegl div 2);       lineto(cx, cy - kegl div 2); end; begin       space : = kegl div 2;             setwindowsize(4 * space + 3 * kegl, 4 * space + 3 * kegl );             line : = space + kegl;       m(space, line );       i(2 * space + kegl, line );       r(3 * space + 2 * kegl, line );             line : = 2 * space + 2 * kegl;       r(space, line );       i(2 * space + kegl, line );       m(3 * space + 2 * kegl, line );             line : = 3 * space + 3 * kegl;       m(space, line );       i(2 * space + kegl, line );       m(3 * space + 2 * kegl, line ); end.