Урок 10 Задача 1

Урок 10 Задача 1

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

var a: integer;
begin
  writeln('vvedite chislo:');
  readln(a);
  if (a mod 4) = 0 then
    writeln( a, ' delitca na 4 bez ostatka')
  else
    writeln( a, ' ne delitca na 4 bez ostatka');
  readln();
end.