Напишите простейшую задачку в Pascal (алгоритмы ветвления if then):
Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом "год", "года", "лет".
--------------------------
Например, я вводу "150" и вместе с числом выходит "лет"
или я ввожу "21" и вместе с числом выходит "год"

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