Введите с клавиатуры значение возраста а. выведите на экран следующие сообщение: "вы-ребёнок"- если а< 6; "вы-студент"- если 17 "вам пора-работать"- если а> 25

(Pascal)
program KW_V;
uses CRT;
var a:integer;
begin
readln(a);
if a<6 then
writeln('Вы-ребёнок');
if a=17 then
writeln('Вы-студент');
if a>25 then
writeln('Вам пора работать');
end.