Дан рост человека вывести ** экран слово высокий ,если его рост превышает 180

Question

Дан рост человека вывести на экран слово высокий ,если его рост превышает 180

Answer 1

Var h:real;
begin
read (h);
if (h>180) then writeln ('высокий');
end.