Question

Напишите процедуру которая принимает числовой параметр-Возраст человека в годах и выводит этот возраст со словом год, года или лет. Например 21 год, 22 года, 12 лет

Answer 1

procedure Age(n: integer);

var
  m: integer;
  s: string;

begin
  if ((n >= 11) and (n <= 20)) or ((n >= 111) and (n <= 120)) then s := 'лет'
  else begin
    m := n mod 10;
    case m of
      1: s := 'год';
      2..4: s := 'года';
    else s := 'лет'
    end
  end;
  Writeln('Возраст равен ', n, ' ', s)
end;