Дано целое число от 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.