Написать программу которая вычисляет оптимальный вес пользователя сравнивая…

Program Zadacha1; Var ves, rost, optVes: integer; Begin write ('введите массу тела'); read (ves); write ('введите рост в см'); read (rost); optVes: =rost-100; if ves>optVes then write ('вам необходимо похудеть на', abs (optVes-ves); if ves