Паскаль. История создания и развития языка программирования

Для решения этой задачи удобно использовать множества.

var

    let, let11, god, goda: set of byte;

    age, n: byte;

begin

    let := [0,5,6,7,8,9];

    let11 := [11,12,13,14];

    god := [1];

    goda := [2,3,4];

    readln(age);

    if (age in let11) or (age mod 100 in let11) then

        writeln(age, ' лет')

    else begin

        n := age mod 10;

        if n in let then

            writeln(age, ' лет')

        else

            if n in god then

                writeln(age, ' год')

            else

                writeln(age, ' года ')

    end;

readln;

end.

Блок-схема №1

Таблица №1