program konkyrs;
var
a,b:integer;
BEGIN
writeln ('введите рост и вес участника через пробел');
readln(a,b);
if (a>=172) and (a<=184) then<br> begin
if (b>=70) and (b<=80) then writeln('подходит для конкурса')<br> else writeln ('не подходит для конкурса');
end
else writeln ('не подходит для конкурса');
readln;
END.
ошибка была в том что надо использовать вместо or (или) оператор and (и) ,а еще были пропущены точка с запятой после команды else ...