Какие вам известны приемы для ввода индексов

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.

var x,y: integer;

begin

  read(x,y);

  if (x> 0) and (y> 0) then writeln("i");

  if (x> 0) and (y< 0) then writeln("iv");

  if (x< 0) and (y> 0) then writeln("ii");

  if (x< 0) and (y< 0) then writeln("iii");

end.