Купец привез на рынок рулон сукна длиной N вершков, но для уплаты пошлины ему нужно указать длину сукна в саженях, аршинах, пядях и вершках. Помогите ему – переведите длину сукна, записанного в вершках в сажени, аршины, пяди и вершки.

Программа получает на вход одно натуральное число N, не превосходящее 2109, – длину сукна в вершках.

Программа должна вывести 4 целых неотрицательных числа S, A, P, V – количество саженей, аршин, пядей и вершков, в сумме дающих ровно N вершков, при этом значение A должно быть меньше 3 (т. к. 3 аршина дают одну сажень), значение P должно быть меньше 4 (четыре пяди дают один аршин), значение V должно быть меньше 4 (четыре вершка дают одну пядь).

var n, s, a, p, v:integer;beginwrite('N = '); readln(n);s:=n div (3*4*4);a:=(n mod (3*4*4)) div (4*4);p:=(n mod (4*4)) div 4;v:=n mod 4; writeln('s = ',s,' a = ',a,' p = ',p,' v = ',v);end.Пример:N = 2061s = 42 a = 2 p = 3 v = 1