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<optVes then write('вам необходимо поправиться на', abs(optVes-ves) );
if ves=optVes then write ('ваш вес оптимальный')
End.