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

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