Добрый день. Десятки вариантов перепробовал, ни один не подошёл. Вообще не понимаю как дойти до ответа всем! (№ 4344) (А. Богданов) Откройте файл электронной таблицы 9-123.xls, содержащей в каждой строке четыре натуральных числа. Выясните, какое количество четверок чисел может являться последовательностью углов (в градусах) трапеции, но не параллелограмма. Последовательность углов начинается с произвольной вершины и далее по кругу. В ответе запишите только число. Замечание: основания трапеции могут располагаться вертикально.

В основу разработки практически любого графического пользовательского ин­терфейса (GUI — Graphical User Interface) положены три метафоры: «рабочий стол», «работаешь с тем, что видишь», «видишь, что получил». Метафора «рабочий стол», в частности, означает следующее. Для человека, сидящего за рабочим столом, доступны как определенные источ­ники информации, так и средства обработки этой информации. При этом на рабо­чем столе могут находиться документы, представленные в различной форме: текст, таблицы, графики, рисунки и т.д., относящиеся либо к различным задачам, либо к разным аспектам одной и той же задачи.

Const n=10; m=5;
var
   i,j,k:integer;
   A:array[1..n] of integer;
   B,C:array[1..m] of integer;
begin
   writeln('Введите элкменты массива');
   for i:=1 to n do readln(a[i]);
   j:=0; k:=0;
   for i:=1 to n do
     if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
     else begin k:=k+1; C[k]:=A[i] end;
   writeln('Массив А');
   for i:=1 to n do write(A[i],' ');
   writeln;
   writeln('Массив B');
   for i:=1 to j do write(B[i],' ');
   writeln;
   writeln('Массив C');
   for i:=1 to k do write(C[i],' ');
   writeln
end.