7.6) Напишите программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть на нужное количество килограмм. Для простоты оптимальный вес вычисляйте по формуле: Рост (в сантиметрах) − 100.

Шаг 1. Считываем рост и реальный вес.

Шаг 2. Вычисляем оптимальный вес: рост − 100.

Шаг 3. Сравниваем реальный вес с оптимальным и выводим рекомендацию с разницей в килограммах.

program OptimalWeight;
var
  h, w, opt, d: integer;
begin
  write('Введите рост в см: ');
  readln(h);
  write('Введите вес в кг: ');
  readln(w);

  opt := h - 100;

  if w = opt then
    writeln('Ваш вес оптимален')
  else if w > opt then
  begin
    d := w - opt;
    writeln('Вам надо похудеть на ', d, ' кг')
  end
  else
  begin
    d := opt - w;
    writeln('Вам надо поправиться на ', d, ' кг')
  end;
end.