Напишите программу, которая анализирует человека по возрасту и относит к одной из четырёх групп: дошкольник, ученик, работник, пенсионер. pascal

Var age:integer;beginreadln(age);if age < 7 then writeln('Дошкольник');if (age < 18) and (age >= 7) then writeln('Ученик');if (age >= 18) and (age < 60) then writeln('Работник');if (age >= 60) then writeln('Пенссионер');end.