Program test;
var r:real;
begin
write(Введите рост манекенщицы: );
readln(r);
if r>180 then writeln(Манекенщицa допущена к участию в конкурсе)
else writeln(Манекенщицa не допущена к участию в конкурсе);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.