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

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

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

Решение:

var a, b: integer;
begin
  writeln('insert number');
  readln(a);
  if(a mod 4 = 0) then
    writeln(a ,' delitsya na 4')
  else
    writeln(a ,' ne delitsya na 4');
  readln();
end.