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

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

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

var a: integer;
begin
  write ('Введите число: ');
  readln (a); // считываем число
  if (a mod 4 = 0) then // прописываем условие, чтобы остаток от деления числа на 4 был равен нулю
    writeln (a, ' делится на 4 без остатка: ', a, ' / ', 4, ' = ', a div 4) //если условие верно, выводим соответствующее сообщение, а также само деление и его результат
  else                   //остались случаи когда остаток не равен нулю
    writeln (a, ' не делится на 4 без остатка'); // выводим соответствующее сообщение
  readln ();
end.

Вывод в консоли:

Введите число: 36
36 делится на 4 без остатка: 36 / 4 = 9