составьте программу,определяющую,является ли данное число кратным 4

Question

составьте программу,определяющую,является ли данное число кратным 4

Answer 1

Program main;
var a: integer;
begin
readln(a);
If a mod 4 = 0 then
write ('число кратно четырем')
else
write ('число не кратно четырем');
readln;
end.