СРОЧНО ПОЖАЛУЙСТА ПОМОГИТЕ! Составить задачу и по нейпрограмму.

Определить количество дней в году, пользователь вводит год.varyear: word; beginreadln (year); if year mod 4=0 thenif (year mod 100=0) and (year mod 400 <> 0) thenyear: =365elseyear: =366elseyear: =365; writeln (year); end.