Программу которая определяет введенное число частное или не частное я не разбираюсь в информатике

Var i:longint;
begin
read(i);
if i mod 2<>0 then write('Не четное') else write('четное');
end.