Помогите пожалуйста, СРОЧНО, завтра уже сдавать Составить программу, которая вычесляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычесляется по формуле рост (в см) - 100. Ниже представлен рекомендуемый вид экрана во время работы программы. Введите рост (см) 170
Введите вес (кг) 68
Вам надо поправится на 2.00 кг

Ему и поправиться нужно и похудеть )

Почему ошибочное?

Все, исправил

Прошу извинения за предоставленные неудобства

var sm, kg:integer;beginwrite('Введите рост (см): ');readln(sm);write('Введите вес (кг): ');readln(kg);if (sm-100)<kg thenwrite('Вам нужно похудеть на ',kg-(sm-100),' кг')elsewrite('Вам нужно поправиться на ',sm-100-kg,' кг');end.