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

Var

a, b, j, v, c:string;

q: integer;

begin

writeln ('Напишите своё имя') ;

readln (a) ;

writeln ('Напишите дату рождения, год целиком') ;

readln (q) ;

q:=2016-q;

write (' - Привет,', a,'. ') ;

if q<7 then begin writeln ('Ты уже пошел в детский сад?') ; readln (' - ', b) ;

if (b='Да') or (b='да') then writeln ('Удачи!') else writeln (' - Пойди в Детский сад, там тебя обучат азам жизни. Удачи') end; else if (7
end.

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