Напишите программу, которая получает возраст человека (целое число, не превышающее 120) и выводит этот возраст со словом «год», «года» или «лет». Например, «21 год», «22 года», «25 лет» Пример Введите возраст: 18 Вам 18 лет Пример Введите возраст: 21 Вам 21 год Пример Введите возраст: 22 Вам 22 года PASCAL
va age: integer begi writeln('Введите возраст: ') readln(age);
if (age mod 10 = 1) and (age <> 11) the writeln('Вам ', age, ' год.' else if (age mod 10 = 2) and (age <> 12) the writeln('Вам ', age, ' года.' else if (age mod 10 = 3) and (age <> 13) the writeln('Вам ', age, ' года.' else if (age mod 10 = 4) and (age <> 14) the writeln('Вам ', age, ' года.' els writeln('Вам ', age, ' лет.') end.
va
age: integer
begi
writeln('Введите возраст: ')
readln(age);
if (age mod 10 = 1) and (age <> 11) the
writeln('Вам ', age, ' год.'
else if (age mod 10 = 2) and (age <> 12) the
writeln('Вам ', age, ' года.'
else if (age mod 10 = 3) and (age <> 13) the
writeln('Вам ', age, ' года.'
else if (age mod 10 = 4) and (age <> 14) the
writeln('Вам ', age, ' года.'
els
writeln('Вам ', age, ' лет.')
end.