Составить программу, которая в процессе беседы с пользователем, выясняет сколько ему лет

Var a:byte;
begin
writeln('Сколько тебе лет?');
write('ответ: ');
readln(a);
writeln('Тебе ',a,'!');
end.