uses
  unit1,crt;

label 1;
var
  orig: string;
  res: real;

begin
repeat
clrscr;
  readln(orig);
  clrscr;
res:=unit1.NUM1(orig);

write(orig+' = '+floattostr(res));
delay(3000);
res:=16;
until res=15;
end.