Помогите, пожалуйста, пишет "встречено 'begin', а ожидалось выражение", совсем не знаю,...

Question

Помогите, пожалуйста, пишет "встречено '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.​

Answer 1

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

program haracteristy;  

uses crt;

var vozrast: Integer;

begin  

clrscr;

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

read (vozrast);  

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

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

else if vozrast >18 then

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

else  

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

end.