Пожалуйста, пожалуйста помогите! Очень срочно надо!

Program weight; Vara,b: real; Beginwriteln ('Введите ваш вес P'); readln (a); writeln ('Введите ваш рост R'); readln (b); if a <= b-100then writeln ('Поздравляю. Ваш вес в норме') Else writeln ('Хорошо бы вам немного похудеть'); End. В приложении рабочий файл программы Пояснения: 1. Переменным a, b присваивается значение real, так как рост и вес могут быть не целыми числами, а дробными.2. Окончания команд writeln, readln, сортируют этапы решения и ввода по строчкам, вместо вывода все в одну строку.3. После условия a <= b-100 НЕ ставится точка с запятой, так как это часть одного цикла условия (IF — если). Если поставить точку с запятой, то программа будет не верна P.s. Почему-то сервис не возволяет скачать файл программы. В общем скопируйте просто из начала решения тогда