Задается два года, определить количество дней между ними - Free Pascal

Формулировка задачи:

Задается два года, определить количество дней между ними (Recon, не знаю что это но сказали типа через него сделать программу)

Решение задачи: «Задается два года, определить количество дней между ними»

Листинг программы

var g1,g2,i,n:Longint;
begin
  Readln(g1,g2);
  For i:=g1 to g2 do
    if i mod 4 = 0 then inc(n,366)
                   else inc(n,365);
  writeln(n,' days');
 
  readln
end.

Объяснение кода листинга программы

Объявлены четыре переменные: g1, g2, i, n типа Longint.
Происходит чтение двух значений с помощью функции Readln(g1,g2).
Создается цикл от g1 до g2.
Для каждого года проверяется, делится ли он на 4 без остатка.
Если год делится на 4 без остатка, то к переменной n добавляется 366 (високосный год).
Если год не делится на 4 без остатка, то к переменной n добавляется 365 (обычный год).
После окончания цикла выводится значение переменной n с помощью функции Writeln(n,' days').
Происходит чтение значения с помощью функции Readln.