Вычислить число и месяц в невисокосном году по номеру дня(информатика , написать программу )

Var
  number, day, month: integer;

begin
  writeln('Напишите день');
  readln(number);
  day := (number mod 30);
  month := (number div 30);
  writeln(day, '.', month);
end.