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

Primary tabs

Submitted by talker on Sun, 02/12/2023 - 21:28

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

var a: integer;
begin
  readln(a) ;
  writeln(a, ' делится на 4:', (a mod 4) = 0) ;
  readln();
end.