Ответ:
Объяснение:
var
num, num_work:integer;
a1, a2, a3:integer;
begin
//num:=912;
readln(num);
num_work:=num;
a1:=0;
a2:=0;
a3:=0;
if ((num >= 100) and (num <= 999)) then begin</p>
a1:=num_work div 100;
num_work:=num_work mod 100;
a2:=num_work div 10;
num_work:=num_work mod 10;
a3:=num_work;
if ((a1+a2+a3) mod 4 = 0) then writeln('Сумма цифр делится на 4') else writeln('Сумма цифр не делится на 4')
end
else writeln('Число - не трехзначное!!!');
end.