Пишет "встречено 'begin', а ожидалось выражение", совсем не знаю, что делатьprogram haracteristy; var b: =sredny; a: =molod; integer: begin writeln ('введите свой возраст'); read (vozras); if vozrast < 0 > 18 then a: =molod else b: =sredny; if a=molod then write ('вы еще молоды') else write('вы в расцвете сил'); end.​

Только сегодня начал учить Паскаль и заметил у вас кучу ошибок. Вы сделали очень много лишних действия, и непонятно, чему равны переменные molod и sredny? А если это строки, то b и а тоже должны быть строковыми.  Я бы сделал так

program haracteristy;  

uses crt;

var vozrast: Integer;

begin  

clrscr;

writeln ('Введите свой возраст');  

read (vozrast);  

if (vozrast >0) and (vozrast <18) then  

write ('Вы еще очень молоды')

else if vozrast >18 then

write ('Вы в расцвете сил')

else  

write('Ошибка! Возраст не может быть меншье нуля');

end.