Составить программу: С клавиатуры вводится три числа. Определите является ли произведение этих чисел числом четным и кратным 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.