Программа для введенного номера...

[dsem8485]

Помогите пожалуйста по паскалю

В некоторой фирме с 1 января 1998 года установлено ежедневное дежурство.для этого были наняты на работу в посменном режиме 4 человека. При Ясно, 1го января дежурил первый работник, 2ого второй,3го третий,4го четвертый,5ого пятый снова первый и т.д
Написать программу
. Которая для введенного с клавиатуры номера дежурного печатает на дисплее года(до 2020го), в которые родов этого работника приходится на предновогодний день

[Xeonc]

Вот код, как мог пояснил. Понимание зависит от того, знаете ли Вы хоть азы

Program yourProgram;
uses crt;
var
year,a,i,worker:integer;
begin
clrscr;
writeln('Vvedite god');
readln(year);
a:=year - 1998;
for i:=1998 to year do
begin
if((i-2000)mod 4=0) then
a:=a+1;
end;
worker:=a mod 4;
writeln('31 dekabrya ',year,' goda budet rabotat ', worker+1,' rabochii');
readln;
end.

Пояснение к алгоритму a:=year - 1998; Этим мы расчитаем количество "лишних" дней накапливающихся с каждым годом, т.к. на 364 день закончивается цикл из 4 работников. Далее в цикле for , мы определяем високосные года и добавляем единицу к лишним дням, т.к. в этих годах 366 дней, а следовательно 2 "лишних" дня.
Затем делим количество лишних дней по модулю на 4, т.к. у нас 4 рабочих, и это значение +1 (т.к. количество рабочих не может быть равно нулю) - и будет порядковый номер работающего рабочего 31 декабря конкретного года. Программа может просчитать это до абсолютно любого года, не только 2020.