Написать программу, которая проверяет, является ли четным введенное с клавиатуры целое число. pascal abc

vara : integer; beginreadln (a); if a mod 2 = 0 thenwriteln ('число является чётным'); elsewriteln ('число не является чётным'); end.

Var a: array[1..3,1..4] of integer;     i,j,s: integer; begin   for i: =1 to 3 do   begin       write('строка ',i,': ');       for j: =1 to 4 do read(a[i,j]);   end; // вывод массива на экран     writeln('массив а по строкам: ');   for i: =1 to 3 do   begin     for j: =1 to 4 do write(a[i,j]: 4);     writeln;   end; // суммы элементов по строкам   for i: =1 to 3 do   begin     s: =0;     for j: =1 to 4 do s: =s+a[i,j];     writeln('сумма элементов строки ',i,': ',s);   end; end.ввод - выводстрока 1: 10 11 12 13 строка 2: 14 15 16 17 строка 3: 18 19 20 21 массив а по строкам:   10   11   12   13   14   15   16   17   18   19   20   21 сумма элементов строки 1: 46 сумма элементов строки 2: 62 сумма элементов строки 3: 78

Const n=6; var x: array[1..n] of integer=(-1, 1, 2, -2, -3, 3); y,z: array[1..n] of integer; i,i1,i2: integer; begin for i: =1 to n do write(x[i]: 3); writeln; i1: =0; i2: =0; for i: =1 to n do   if x[i]> 0 then begin i1: =i1+1; y[i1]: =x[i]; end   else if x[i]< 0 then begin i2: =i2+1; z[i2]: =x[i]; end; writeln('  y:   z: '); for i: =1 to n do   if (i1> =i)and(i2> =i)   then writeln(y[i]: 3,z[i]: 4)   else if i1> =i then writeln(y[i]: 3)     else if i2> =i then writeln(z[i]: 7); end. результат:   -1  1  2 -2 -3  3   y:   z:   1  -1   2  -2   3  -3