Составьте программу которая определяет является ли целое число введённое с клавиатуры чётным или нечётным и выводит информацию на экран

Допустим, что число будет называться zProgram z1;var z:integer;beginWrite('Целое число =');ReadLn(z);If z mod2=0 then WriteLn('четное') else WriteLn('нечетное');end.