Сделать программу в паскале классификацию по возрасту с 10 лет по 100. Срочно надо. и...

Question

Сделать программу в паскале классификацию по возрасту с 10 лет по 100. Срочно надо. и чтобы выводило только одну строчку ответа

Answer 1

Вроде так:

var b, c: integer;
begin
  Writeln('Введите ваш возраст');
  Readln(b);
  if b
      else begin
         c := b mod 100;
         if (c >= 10) and (c
         else
            case (b mod 10) of
               1: WriteLn('Вам ', b, ' год');
               2..4: WriteLn('Вам ', b, ' года');
               5..9, 0: WriteLn('Вам ', b, ' лет')
              end;
   end;
 Writeln('Для выхода нажмите ');
 Readln;
end.