Помогите составить программу в паскали..

Поросток до 35 это збс, я еще подросток оказывается)

readln(vozrast);
case vozrast of
0..14: writeln('Молодой');
15..34: writeln('Подросток');
35..90: writeln('Средний');
else writeln('Старый"');
end;

И зачем спрашивать имя и фамилию, если эти данные в программе никак не используются...

Угу. Закон РФ "О персональных данных", N 152. Теперь тюрьма.

program vozrast;
var i,f: string;
var l: integer;
begin
writeln('Здравствуйте, кaк вас зовут');
readln(i);
writeln('А фамилия? ');
readln(f);
writeln('Сколько вам лет');
read(l);
writeln();
writeln(i,' ',f);
if l>90 then write('у вас пожилой возраст');
if (l>35) and (l<=90) then write('у вас средний возраст');
if (l>15) and (l<=35) then write('у вас молодой возраст');
if l<=15 then write('у вас подростоковый возраст');
end.

Program DoSs;
var
a:integer;
s,c:string;
begin
writeln('Здравствуй как тебя зовут? ');
readln(s);
writeln('А фамилия? ');
readln(c);
writeln('Сколько тебе лет');
readln(a);
if (a>35) and (a<90) then writeln('Средний возраст');
if (a<35) and (a>15) then writeln('Молодой ');
if a<15 then writeln('Подросток');
if a>90 then writeln('Старый');
end.

вот сли что подправишь если что не так со значениями

Программа в паскали. Я плакалЪ.
Вы бы хотя бы название языка выучили, для приличия.
if (l > 35) then
begin
if l<40 then writeln('средвоз') // или что там такое написано
else writeln('стар')
end
else
begin
if l>15 then writeln('Гвозди')//честно, с вашим почерком- скорее во врачи надо было поступать.
else writeln('Поцрацок');
end;

что-то вроде этого

progtramm m;
var
integet l;
begin
writeln('Сколько тебе лет? ');
readln(l);
if(l>35)
if(l<90)
writeln('Средний возраст')
else
writeln('Старый')
else
if(l>10)
writeln('молодой')
else
writeln('подросток');
end.