---

program Example;
var
  i, n, x, h: integer;
begin
  // 1. Получаем значение n (вместо "n - ?")
  write('Введите значение n: ');
  readln(n);

  // 2. Запускаем цикл от 1 до n
  for i := 1 to n do
  begin
    // 3. Получаем значение x (вместо "x - ?")
    // (Если x тоже нужно вводить с клавиатуры)
    write('Введите значение x: ');
    readln(x);

    // 4. Условие: если x > 0, то h = 1, иначе h = 2
    if x > 0 then
      h := 1
    else
      h := 2;
      
    // Выводим результат на каждом шаге (по желанию)
    writeln('Шаг ', i, ': h = ', h);
  end;
end.