Дано четырёхзначное число определить кратно ли четырём произведение его цифр

program tz;
var
a,b:integer;
i:byte;
begin
writeln('vvedite 4x znachnoe chislo');
readln(a);
b:=1;
for i:=1 to 4 do begin
    b:=b*(a mod 10);
    a:=a div 10
end;
if (b mod 4) = 0 then
   writeln(b,' Kratno 4')
else
    writeln(b,' Ne kratno 4');
readln;
end.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('*** Результат ***');
  a.Transform(x->x>=0?0:1); a.Println(4);
  var s:=a.ElementsByRow;
  Writeln('Нулей- ',s.Where(x->x=0).Count,', единиц- ',
      s.Where(x->x=1).Count)
end.

Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 5
*** Исходный массив [4,5] ***
 -19  61 -47 -38 -26
 -95 -35 -56  43  40
   0 -52 -87 -85  93
 -68  48 -55   5 -93

*** Результат ***
   1   0   1   1   1
   1   1   1   0   0
   0   1   1   1   0
   1   0   1   0   1
Нулей- 7, единиц- 13

Объяснение:

Стиль форматирования — набор элементов форматирования (шрифта, абзаца и пр.), имеющий уникальное имя. Любой абзац документа Word оформлен определенным стилем, стандартным или пользовательским.

В Word существует четыре основных вида стилей:

стили символов;

стили абзацев;

стили таблиц;

стили списков.

Стилевое форматирование имеет ряд преимуществ перед ручным:

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

единообразию оформления документа. При ручном форматировании одинаковые по смыслу форматирования разделы могут отличаться своими форматами, применение стиля же вносит строгость в оформление документа.

позволяет быстро изменить вид отдельных элементов во всем документе. В этом случае достаточно внести изменения в стиль, и оформление вступит в силу во всем документе.

Стили абзацев обычно объединяют элементы форматирования символов и абзацев и определяют вид абзаца.