Дано целое число от 1 до 365, определить каким будет день года, (суббота, воскресенье, или будние) если 1 е января вторник. Java (NetBeans)

Uses crt;

var k, n:integer;

begin

clrscr;

writeln ('введи день года от 1 до 365') ;

readln (k) ;

if (k>=1) and (k<=365) then

begin

n:=k mod 7;

case n of

1: writeln ('понедельник') ;

2: writeln ('вторник') ;

3: writeln ('среда') ;

4: writeln ('четверг) ;

5: writeln ('пятница') ;

6: writeln ('суббота') ;

0: writeln ('воскресенье') ;

end;

end

else writeln ('Неверный ввод') ;

readln;

end.

uses crt;

var k, n, d:integer;

begin

clrscr;

writeln ('Введи с какого дня недели 1 января (1-пон, 2-вт и тд до 7) ') ;

Readln (d) ;

writeln ('введи день года от 1 до 365') ;

readln (k) ;

if (k>=1) and (k=1) and (d<8) then

begin

n:=k mod 7 + d-1;

case n of

1: writeln ('понедельник') ;

2: writeln ('вторник') ;

3: writeln ('среда') ;

4: writeln ('четверг') ;

5: writeln ('пятница') ;

6: writeln ('суббота') ;

0,7: writeln ('воскресенье') ;

end;

end

else writeln ('Неверный ввод') ;

readln;

end.