Ввести рост человека. вывести на экран " высокий", если его рост превышает 180 см, и " не высокий" в противном случае.

Program rost; 
var a: integer;
 begin 
readln (a);
 if a<=180 then  
 Writeln('Не очень высокий')

 else 
 Writeln('Высокий');
 end.