На Паскале помогите написать

Дано целое число k (1<=k<=365). Присвоить целочисленной величине

n значение 1,2, ...,6 или 0 в зависимости от того, на какой день

недели (понедельник, вторник, ..., субботу или воскресенье) приходится k-й

день года, в котором 1 января:

а) понедельник

б) вторник

в) d-й день недели (если 1 января-понедельник, то d=1, если вторник - d = 2, ..., если воскресенье d=7).

A) var k, n:integer;

begin

read (k) ;

if k div 7=k/7 then n:=7 else

if k+1 div 7=k+1/7 then n:=6 else

if k+2 div 7=k+2/7 then n:=5 else

if k+3 div 7=k+3/7 then n:=4 else

if k+4 div 7=k+4/7 then n:=3 else

if k+5 div 7=k+5/7 then n:=2 else

if k+6 div 7=k+6/7 then n:=1;

writeln (n) ;

end.

б) var k, n:integer; begin

read (k) ;

if k-1 div 7=k-1/7 then n:=7 else

if k div 7=k/7 then n:=6 else

if k+1 div 7=k+1/7 then n:=5 else

if k+2 div 7=k+2/7 then n:=4 else

if k+3 div 7=k+3/7 then n:=3 else

if k+4 div 7=k+4/7 then n:=2 else

if k+5 div 7=k+5/7 then n:=1;

writeln (n) ;

end.