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

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

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

program Pr10_1;

var a:integer;

begin

  writeln('Введите число: ');
  readln(a);
  if (a mod 4 = 0) then writeln('Да') else writeln('Нет');

  readln();

end.             

Консоль:

Введите число:
3
Нет