Напишите программу в паскале с 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.