Урок 10 Задание 1

Задание 1 Урок 10

Пользователь вводит число, определите делится ли оно на 4

var a: integer;
begin
  write('Введите число a: ');
  readln(a);
  if (a mod 4) = 0 then
    writeln('a делится на 4')
  else begin
    if (a div 4) <>0 then
    writeln('a делится на 4 c остатком');
  end
end.