Ввести рост человека. вывести на экран " высокий", если его рост превышает 180 см, и " не очень высокий" в противном случае.
Program rost; var a: integer; begin readln (a); if a<=180 then <br> Writeln('Не очень высокий') else Writeln('Высокий'); end.