program mas;
const n=50;
var
  m: array[1..n]of real;
  i,k: integer;
  t: boolean;
begin
  for i:=1 to n do
  begin
    m[i]:=random(n);
    write(m[i],' ');
  end;
  for i:=1 to n do
    repeat
      t:=false;
      for k:=1 to n do
        if (m[i]=m[k])and(k<>i) then
        begin
          t:=false;
          m[i]:=random(n);
          break;
        end
        else
          t:=true;
    until t;
  writeln(' ');
  for i:=1 to n do
    write(m[i],' ');
end.