По числу текущего месяца определить день недели, если первый день месяца был вторник. (Паскаль)

Var a:integer;

begin

write ('введите число месяца ') ;

readln (a) ;

if (a mod 7 = 1) then write ('вт') ;

if (a mod 7 = 2) then write ('ср') ;

if (a mod 7 = 3) then write ('чт') ;

if (a mod 7 = 4) then write ('пт') ;

if (a mod 7 = 5) then write ('сб') ;

if (a mod 7 = 6) then write ('вс') ;

if (a mod 7 = 0) then write ('пн') ;

end.