program kkk; uses crt; var r,v,x:real; BEGIN clrscr; writeln('vvedite r v'); readln(r,v); x:=r-100; if x=v then writeln('У вас оптимальный вес!!!'); if x>v then writeln('Вам надо поправиться'); if x readln; END.