Program weight; Var a,b: real; Begin writeln('Введите ваш вес P'); readln(a); writeln('Введите ващ рост R'); readln(b); if a<=b-100 then writeln('Поздравляю. Ваш вес в норме') Else writeln('Хорошо бы вам немного похудеть'); End.