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

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.

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