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

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('n=');  var d:array[1..4] of integer;  for var i:=1 to 4 do begin    d[5-i]:=n mod 10;    n:=n div 10    end;  if d[1]+d[2]=d[3]+d[4] then    Writeln('Сумма двух первых цифр равна сумме двух последних');  if (d[1]+d[2]+d[3]+d[4]) mod 3 = 0 then    Writeln('сумма цифр кратна трем');  if (d[1]*d[2]*d[3]*d[4]) mod 4 = 0 then    Writeln('произведение цифр кратно четырем');end.