Відповідь:

program DivideByFour;

var

 num, result: integer;

begin

 write('Введи число: ');

 readln(num);

 if num mod 4 = 0 then

 begin

   result := num div 4;

   writeln('Результат: ', result);

 end

 else

 begin

   writeln('Результат: 0');

 end;

 readln;

end.

Пояснення: