Срочно нужно! Очень прошу, заранее спасибо!
1.     Написать программу, которая по введенному росту,
определит ваш идеальный вес. Если идеальный вес отличается от вашего, попросит
ввести ваш вес и  выведет на экран
рекомендации по питанию и физическим нагрузкам.

program chik;var a,b,c:integer;beginwriteln('РОСТ:');read(a);b:=a-110;writeln('Ваш вес:');read(c);if(b<c)then writeln('ВАМ НЕОБХОДИМО ПОХУДЕТЬ!!!')else if(b-c<10)then writeln('ВСЕ ХОРМ') else writeln('Необходимо набрат вес'); end.