Var r,v:real;
begin
write('Рост? '); readln(r);
write('Вес? '); readln(v);
if (r >= 168)and(r <= 178)and(v < r-115) then writeln('Принят')
else writeln('Не принят');
readln
<span>end.</span>
<span>выделить его, а затем переместить при одновременно нажатых левой кнопке и клавише ctrl</span>
Х=18
у=8+24=32
х=3+3=6
с=6*632+6/6=5