Составьте программу на паскале, чтобы ПК запросил имя пользователя и его год рождения, подсчитал возраст человека, в зависимости от возраста разработайте вариант диалога с пользователем (-ещё не учишься?;-учишься где?;уже не учишься?)

Var
a,b,j,v,c:string;
q: integer;

begin
writeln(Напишите своё имя);
readln(a);
writeln(Напишите дату рождения, год целиком);
readln(q);
q:=2016-q;
write( - Привет,,a,. );
if qlt;7 then begin writeln(Ты уже пошел в детский сад); readln ( - ,b);
if (b=Да) or (b=да) then writeln (Удачи!) else writeln ( - Пойди в Детский сад, там тебя обучат азам жизни. Удачи)  end; else if (7lt;q) and (qlt;17) then begin writln ( - Ты пошёл в школу); readln ( - ,c); if (c=Да) or (c=да) then begin writeln ( - В какую школу ты пошёл); readln ( - ,v); writeln ( - В каком ты классе); readln ( - ,j);end;
end.

Так можно продолжать бесконечно