Question

программирование как сделать 1

Answer 1

var  yo: integer;
begin
  readln(yo);
  writeln(yo, (yo mod 10 = 0) or (yo mod 10 >= 5) ? ' лет' : (yo mod 10 = 1 ? ' год' : ' года'));
end.
Не бойтесь тернаров

Answer 2

спасибо

Answer 3

почему пишет ошибку

Answer 4

В каком месте?

Answer 5

перед первым вопросом

Answer 6

Скачайте новый PascalABC.NET с одноимённого сайта