помогите пожалуйста написать или на рисовать алгоритм проверки числа на четность

var i:integer; begin writeln('Введите число'); readln(i); if ((i mod 2)<>0) then      writeln('Число нечетное') else      writeln('Число четное'); end.