var
 i : byte;
 k : byte;
 j : byte;
endvar
begin
 write("Введите цифру ");
 read(i);
 write("Введите кол-во раз ");
 read(j);
 for k={1} to {j} do
  if {i}={1} then
   writeln("I");
  endif;
  if {i}={2} then
   writeln("II");
  endif;
  if {i}={3} then
   writeln("III");
  endif;
  if {i}={4} then
   writeln("IV");
  endif;
  if {i}={5} then
   writeln("V");
  endif;
 endfor;
end