Написать программу: в модельное агенство принимаются девушки с ростом выше 170см и весом меньше 58кг. определите подходит ли кандидат в модели по введенному весу и росту

Uses crt;
h,m:integer;
Begin
Clrscr;
Writeln('Рост девушки=');
Readln(h);
Writeln('вес девушки=');
Readln(m);
If (h>170) and (m<58) then writeln('девушка принета') else writeln(' девушка не принета');
Readkey;
End.