var 
s:string; n,m,a,b,c:integer;
begin
write('Введите Ваше имя: '); readln(s);
writeln('Здравствуйте, ',s);
write('Сколько вам лет? '); readln(n);
case n of
 1..6    : writeln('Ты еще совсем малыш');
 7..17   : writeln('Наверно ты учишься');
 18..60  : writeln('Могу предположить что вы уже работаете');
 61..125 : writeln('скорей всего вы уже на пенсии');
 126..200: writeln('сомневаюсь, что вы еще живы');
end;
write('Какие отметки чаще всего бывали в вашем дневнике? '); readln(m);
case m of
 5  : writeln('Молодец');
 4  : writeln('Хорошо, но есть к чему стремиться');
 3  : writeln('Все, что не два уже хорошо');
 2 : writeln('Не ожидал такого от вас');
end;
writeln('Если у вас есть проблемы с геометрией, я могу помочь.');
writeln('Введите три числа, а я отвечу, можно ли с ними построить треугольник. ');
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a)
 then writeln('треугольник с такими сторонами построить можно')
 else writeln('треугольник с такими сторонами построить невозможно');
writeln('До свиданья, ',s);
end.

Пример:
Введите Ваше имя: Петя
Здравствуйте, Петя
Сколько вам лет? 16
Наверно ты учишься
Какие отметки чаще всего бывали в вашем дневнике? 5
Молодец
Если у вас есть проблемы с геометрией, я могу помочь.
Введите три числа, а я отвечу, можно ли с ними построить треугольник. 
3 4 5
треугольник с такими сторонами построить можно
До свиданья, Петя