Дано натуральное число N

uses crt;
 
var
  n: word;
 
begin
  write('Введите число: ');
  readln(n); // считываем n и делаем перевод строки
  if n mod 4 = 0 then // если остаток от деления = 0 то
    writeln('N = 4 * ', n div 4)
    // выводим n = 4 * {число равное n нацоле разделённое на 4}
  else if n mod 4 = 1 then // дальше аналогично
    writeln('N = 4 * ', n div 4, ' + 1')
  else if n mod 4 = 2 then
    writeln('N = 4 * ', n div 4, ' + 2')
  else if n mod 4 = 3 then
    writeln('N = 4 * ', n div 4, ' + 3');
  readln;
 
end.

uses crt;
var n,k:integer;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
k:=n div 4;
case n mod 4 of
0:write(n,'=4*',k);
1:write(n,'=4*',k,'+1');
2:write(n,'=4*',k,'+2');
3:write(n,'=4*',k,'+3');
end;
readln
end.

uses crt;
var n:Integer;
begin
ClrScr;
Write('Введите число,N=');
Readln(n);
Write('N=4*',n div 4);
if n mod 4<>0 then Writeln('+',n mod 4) else Writeln;
Readln;
end.