Ирина, привет)
program optimum;
var
rost, ves, opt: real;
begin
clrscr; // Очистка экрана
// Ввод роста и веса пользователя
Write('Введите ваш рост в см: ');
Readln(rost);
Write('Введите ваш вес в кг: ');
Readln(ves);
// Вычисление оптимального веса
opt := rost - 110;
// Сравнение веса подростка с оптимальным
if ves = opt then
WriteLn('Ваш вес уже оптимальный.')
else if ves > opt then
begin
// Предложить похудеть, указав, на сколько кг.
WriteLn('Вам стоит похудеть на ', ves - opt:0:2, ' кг.')
end
else
begin
// Предложить поправиться, указав, на сколько кг.
WriteLn('Вам стоит поправиться на ', opt - ves:0:2, ' кг.')
end;
end.
Старайтесь организовывать проверку с использованием вложенного ветвления!
program optimum;
var
rost, ves, opt: real;
begin
cls;
//ввод роста и веса пользователя
...
//вычисление оптимального веса
...
//сравнение веса подростка с оптимальным
...
//если совпадает, сообщить об этом,
...
//если нет - предложить похудеть или поправиться указав, на сколько кг.
...
end.