Определить количество дней между двумя заданными датами.паскаль.тема записи

Vara,b,c:integer;begin writeln('Введите первую дату:');readln(a);writeln('Введите вторую дату:');readln(b);c:=b-a;writeln('Колличество дней между ними',c);