использование оператора case

[555ALEXANDR555]

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

[Hacker19_90]

ost := n mod 4;
case ost of
    0: Writeln (n, '=4*',n/4);
    1: writeln (n, '=4*', n div k, ' + ', ost);
    {и так далее}
end.

Ну а вообще проще через if

ost := n mod 4;
if ost = 0 then Writeln (n, '=4*',n/4)
else writeln (n, '=4*', n div k, ' + ', ost);

[555ALEXANDR555]

Спасибо огромное теперь буду знать как это делать.