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

Var age:integer;

begin

readln(age);

if (age >= 0)and(age <=7) then writeln('Младенец');<br>
if (age > 7)and(age < 18) then writeln('Ребёнок');

if (age >= 18)and(age <= 55) then writeln('Взрослый');<br>
if (age > 55) then writeln('Пенсионер');

end.