Вычислить оптимальный вес пользователя - Turbo Pascal (29310)

Формулировка задачи:

Помогите пожалуйста! Написать программу через функцию , которая вычисляет оптимальный вес пользователя , сравнивает ее с реальной и выдает рекомендации о необходимости полнеть или похудеть. Оптимальный вес вычисляется по формуле: рост (см) -100

Решение задачи: «Вычислить оптимальный вес пользователя»

Листинг программы

function IdealWeight(const height: Integer): Integer;
begin
    IdealWeight := height - 100;
end;
 
procedure Answer(const weight, ideal: Integer);
var
    diff: Integer;
begin
    diff := ideal - weight;
    if (diff > 0)
    then
        WriteLn('Нужно набрать ', diff, ' кг.')
    else
        if (diff = 0)
        then
            WriteLn('Вы идеальны!')
        else
            WriteLn('Необходимо сбросить ', Abs(diff), ' кг.');
end;
var
    h, w: Integer;
begin
    Write('Рост? '); ReadLn(h);
    Write('Масса? '); ReadLn(w);
    Answer(w, IdealWeight(h));
end.

Объяснение кода листинга программы

В функции IdealWeight задан рост пользователя в переменной height и вычислен оптимальный вес пользователя в переменной IdealWeight.
В процедуре Answer заданы масса пользователя в переменной weight и оптимальный вес пользователя в переменной ideal. Вычислена разница между ними в переменной diff.
Если разница положительна, то выводится сообщение Нужно набрать и значение diff, если оно больше нуля.
Если разница равна нулю, выводится сообщение Вы идеальны!.
Если разница отрицательна, выводится сообщение Необходимо сбросить и абсолютное значение diff.