const m=[11..14];
var n:byte;
begin
repeat
write('Vvedite naturalnoe n<=100 n=');
readln(n);
until (n>0)and(n<=100);
if n in m then writeln(n,' лет')
else
case n mod 10 of
0,5,6,7,8,9:writeln(n,' лет');
2,3,4:writeln(n,' года');
1:writeln(n,' год');
end;
readln
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.