составить программу ля определения дня недели, который приходится на 1 января любого года ХХ века по следующему алгоритму: обозначим 2 последние цифры в записи года через n например 92 (1992) а соответствующий день недели Д1- понедельник д2- вторник… и т.д. — Pascal(Паскаль)

uses crt;
var g,n,d:word;
begin
clrscr;
repeat
write('Введите номер года от 1901 до 1999 g=');
readln(g);
until(g>1900)and(g<=2000);
n:=g mod 100;
d:=1+trunc(n*1.25) mod 7;
write('1 января ',g,' года ');
case d of
1:write('понедельник');
2:write('вторник');
3:write('среда');
4:write('четверг');
5:write('пятница');
6:write('суббота');
7:write('воскресенье');
end;
readln
end.