Ответ:

Var x:integer;

Begin

Writeln ('введите вес') ;

Readln (x)

If (x>25) and (x<85) then Writeln ('оптимальный вес')

Else Writeln ('не оптимальный вес') ;

End.

Объяснение:

Можно место значений 25 и 85 подставить другие.