Source file: /~heha/BETA/matdde32.zip/SRC/t3.pas

{$N+}
var
 d: double;
 si: Real;
begin
 repeat
  readln(d);
  si:=d;
  writeln(d:26);
 until d=0
end.