Квадраты при игре в крестики-нолики занумерованы, как показано на рисунке. заданы номера трех квадратов: n1, n2, n3, причем n1

Проверь сначала равно ли 1 5 9 и 3 5 7 это по диагонали по вертикали 147 258 369 по горизонтали 123 456 789

1) const n=10; var a: array[1..n]of integer; i,k: integer; begin         for i: =1 to n do               begin                   readln(a[i]); ; ;                       if a[i]mod 5=0 then                           k: =k+1;               end; writeln; writeln(k); end. 2) const n=10; var a: array[1..n]of integer; i,s: integer; begin         for i: =1 to n do               begin                   a[i]: =random(21)-10;                     write(a[i]: 4);                       if (abs(a[i]mod 10)=3) then                           s: =s+a[i];               end; writeln; writeln(s); end.

Program a; var sum,n,ymn,sred: real; i: integer; mas : array[1..5]  of  integer;   begin     sum: =0;     ymn: =1;     writeln('укажите пять чисел');       for i: =1 to 5 do         begin             read (mas[i]);   sum: =mas[i]+sum;             ymn: =mas[i]*ymn;             sred: =sum/5;         end; writeln('сумма элементов = ',sum,'   произведение элементов = ',ymn,' среднее арифметическое = ',sred); end.