M = int(input("Введите возраст: "))
k = m % 10
if (m>9)and(m<20)or(m>110)or(k>4)or(k==0):
print("Вам",m,"лет.")
else:
if k==1: print("Вам",m,"год.")
else: print("Вам",m,"года.")
Пример:
<span>Введите возраст: 21
Вам 21 год.</span>
Program A1;
var a,b:Integer; {Можно и real}
begin
readln (a,b);
if a<b then writeln ('Число а больше числа б') else writeln ('Число б больше числа а');
end.