Question

для конкурсного отбора манекенщиц приглашаются девушки не ниже 180 см. определить будет ли допущена таня к участию в конкурсе

Answer 1

program test;
var r:real;
begin
write('Введите рост манекенщицы: ');
readln(r);
if r>180 then writeln('Манекенщицa допущена к участию в конкурсе')
else writeln('Манекенщицa не допущена к участию в конкурсе');
end.