---

program Example;
var
  i, n, x, h: integer;
begin
  write('Введите n: ');
  readln(n);
  
  // В псевдокоде написано h - ?, 
  // обычно это счетчик, поэтому инициализируем его нулем
  h := 0; 

  for i := 1 to n do
  begin
    write('Введите x: ');
    readln(x);
    
    if x > 0 then
      h := 1
    else
      h := 2;
      
    // Выводим результат для проверки
    writeln('h = ', h);
  end;
end.