Очень запутанное в начале условие. Если число делится на 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.