Помогите пожалуйста, СРОЧНО, завтра уже сдавать Составить программу, которая вычесляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычесляется по формуле рост (в см) - 100. Ниже представлен рекомендуемый вид экрана во время работы программы. Введите рост (см) 170
Введите вес (кг) 68
Вам надо поправится на 2.00 кг
Введите вес (кг) 68
Вам надо поправится на 2.00 кг
Answers & Comments
begin
write('Введите рост (см): ');
readln(sm);
write('Введите вес (кг): ');
readln(kg);
if (sm-100)<kg then
write('Вам нужно похудеть на ',kg-(sm-100),' кг')
else
write('Вам нужно поправиться на ',sm-100-kg,' кг');
end.