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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.