Дано натуральное число n. если оно делится на 4, вывести на экран ответ n=4k ( где k соответствующее частное), если остаток от деления на 4 равен 1, n=4k+1, если остаток на 4 равен 2 n=4k+2, если остаток от деления на 4 равен 3 n=4k+3, например 12=43, 22=45+2

Код Pascal1 2 3 4 5 6 7 8 9 Var   n,k: Integer; BEGIN Writeln('Введите N: '); Readln(n); Writeln('Введите K: '); Readln(k); If n mod 4=0 Then Writeln(4*k) Else If n mod 4=2 Then Writeln(4*k+2) Else If n mod 4=3 Then Writeln(4*k+3); END.