{* Грамматика *}

Unit YEAR_YEARS;
Interface
Implementation
Begin
 writeln('Вывод слово год, года, или лет.');
End.

Program z_year_years;

Uses year_years.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  Year : byte;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Введите число');
  readln(Year);
  If (Year Mod 10 = 1)And(Year Div 10 Mod 10  1) Then
    writeln(Year, ' Год');
  If (Year Mod 10 > 1)And(Year Mod 10 4)Or(Year Div 10 Mod 10 = 1)Or(Year Mod 10 = 0) Then
    writeln(Year, ' Лет');
  readln; {* Приостановка программы. Ожидание Enter *}
End.