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

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