var
 i : byte;
 p : array [5] of byte;
endvar
begin
 equal:i,{0};
 writeln("bbb");
 for i={1} to {5} do
  equal:p[{i}],{i};
 endfor;
 for i={1} to {5} do
  case p[{i}] of
   {1} : writeln("I");
         endc
   {2} : writeln("II");
         endc
   {3} : writeln("III");
         endc
   {4} : writeln("IV");
         endc
   {5} : writeln("V");
         endc
  endcase;
 endfor;
end