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

Var age:integer;

begin

  readln(age);

  if (age gt;= 0)and(age lt;=7) then writeln(Младенец);

  if (age gt; 7)and(age lt; 18) then writeln(Ребёнок);

  if (age gt;= 18)and(age lt;= 55) then writeln(Взрослый);

  if (age gt; 55) then writeln(Пенсионер);

end.