var rost,ves:real;
begin
writeln('Введите вес');
readln(ves);
writeln('Введите рост') ;
readln(rost);
if (rost>=168) and (rost<=178) then<br>if ves<=rost-115 then writeln('Допущен') else writeln('не допущен') else writeln('не допущен ');<br>end.
{********************************}
car rost, ves:real;
begin
writeln('введите рост и вес конкурсанта') ;
readln(rost,ves);
if (rost<=168) or (rost>=178) then writeln('не допущен')
else if ves<=rost-115 then writeln('допущен') <br>else writeln('не допущен');
end.
Пишу 2 варианта, какой больше понравится.