Составить программу: С клавиатуры вводится три числа. Определите является ли произведение этих чисел числом четным и кратным 4.

Var

a, b, c: integer;

begin

readln (a, b, c) ;

if (a * b * c mod 2 = 0) then writeln ('Произведение этих чисел является четным числом.')

else writeln ('Произведение этих чисел не является четным числом.') ;

if (a * b * c mod 4 = 0) then writeln ('Произведение этих чисел кратно 4.') else writeln ('Произведение этих чисел не кратно 4.')

end.