Постановка : дано натуральное число n. если оно делится на 4, вывести на экран ответ n=4k (где k- соотв. частное); если остаток от деления на 4 равен 1, n=4k+1; если остаток от деления на 4 равен 2, n=4k+2; если остаток от деления на 4 равен 3, n=4k+3 например, 12=4*3, 22=4*5+2 составить алгоритм для отчета в паскале.

Var n: integer;
  begin
    write('задайте число n: ');
    readln(n);
    writeln((n div 4)*4+(n mod 4));
end.
{ или по другому }
{var n,m,ost: integer;
begin
  write('задайте число n: ');
  readln(n);
  m:=n div 4; 
  ost:=n-m*4;
  writeln(m*4+ost);
end.}