program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 k1, k2, k3 : Real;

begin
 readln( k1, k2, k3 );

 writeln( 1000 / ( k2/k3 + k2/k1 + 1 ) * k2 : 0 : 0 );
end.

As you can see, problem is very easy. I got AC and my solution used 295 KB memory and works 0.015 sec.

P.S. Sorry for my bad English.

This part of your program isn't necessary
uses
  SysUtils;
.It just increase memory.