Informatika (2 семестр) / 3 аттестация / vozrast

program vozrast;
 var x:integer;
begin
 readln (x);
if (x mod 10=1) and (x<>11) then
                            writeln('Мне ',x,' год')
                            else
                            begin
                            if (x mod 10>1) and (x mod 10<5) and (x<>12) and(x<>13) and(x<>14)then
                                                                                             writeln('Мне ',x,' года')
                                                                                               else
                                                                                                 writeln ('Мне ',x,' лет');
                            end;
end.