Напишите пожалуйста программу в паскале с if 0-16 младенец 7-18 ребёнок 19-55 взрослый 56-100 пенсионер

var age:integer; begin   readln(age);   if (age >= 0)and(age <=7) then writeln('Младенец');   if (age > 7)and(age < 18) then writeln('Ребёнок');   if (age >= 18)and(age <= 55) then writeln('Взрослый');   if (age > 55) then writeln('Пенсионер'); end.