В школу танцев принимаются девушки и юноши, имеющие рост не ниже 168 и не выше 178 см. Их вес должен соотноситься с ростом по формуле : значение веса <= значение роста -115
Var r,v:real; begin write('Рост? '); readln(r); write('Вес? '); readln(v); if (r >= 168)and(r <= 178)and(v < r-115) then writeln('Принят') <br>else writeln('Не принят'); readln end.