Напишите простейшую задачку в Pascal (алгоритмы ветвления if then): Ввести возраст…

Var b, c: integer; beginWriteln ('Введите ваш возраст'); 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.