Даю 40 баллов!!!
Напишите пожалуйста эту программу в Паскаль(2)

Если возникнут проблемы, пиши

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