Помогите пожалуйста,оператор caseДано естественное число N. если оно делится на 4,

Очень запутанное в начале условие. Если число делится на 4, то вывести 4*приватное (а частное и есть результат деления на данное число 4)... Выходит, что при разделеньи числа на 4 переменной N присвоится значение 4*итог, а это и есть число N.  

program vibor;

var

N,k:integer;                          

begin

writeln('vvedite N');

readln(N);

k:=N mod 4;        

case k of

0: writeln(4*k);   

1: writeln(4*k+1); 

2: writeln(4*k+2);

3: writeln(4*k+3);

end;                 

end.