Помогите пожалуйста. Дам 100 баллов. ЗАДАНИЕ 2.

Ответ:

Разъясненье:

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 gt;= 100) and (num lt;= 999)) then begin

   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.