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.