program IO;
var
  S : text;
  I : integer;
  X : real;
begin
  assign(S,'Vystup');
  rewrite(S);
  for I:=1 to 12 do
    writeln(S, I:3, ' <', -123:I, '>' );
  writeln(S);
  X:= 17/3;
  for I:=5 to 20 do
    writeln(S, I:3, ' <', X:I, '>' );
  writeln(S);
  for I:=5 to 20 do
    writeln(S, I:3, ' <', X:I:7, '>' );
  close(S);
end.