Остаток от деления. - Pascal

Формулировка задачи:

с клавиатуры вводится число если остаток от деления его на 4 равено нулю,то увеличить его значение на единицу. если остаток от деления =1, то уменьшать его значение на единицу. во всех остальных случаях возвести вводимое число в куб. только начинаю изучать паскаль помогите пожалста!!!!!

Решение задачи: «Остаток от деления.»

Листинг программы

program test;
var i:integer;
begin
write('Vvedite chislo ');
readln(i);
if i mod 4=0 then inc(i)
else
if i mod 4=1 then dec(i)
else
i:=i*i*i;
writeln('chislo=',i);
end.

Объяснение кода листинга программы

В программе объявляется переменная i типа integer.
Выводится сообщение «Введите число », после чего происходит чтение значения переменной i с помощью функции readln.
Выполняется проверка: если остаток от деления i на 4 равен нулю, то значение переменной i увеличивается на единицу, иначе, если остаток от деления i на 4 равен единице, то значение переменной i уменьшается на единицу. В противном случае значение переменной i умножается само на себя.
Выводится сообщение «число=», после чего выводится значение переменной i.