var
 valueTxt : String;
 stNumber, perNumber, resultNumber : Double;

void SetPerInput;
{
  perNumber = Clomosy.GlobalResult;
  resultNumber = stNumber * perNumber / 100;
  ShowMessage(stNumber);
  ShowMessage(perNumber);
  ShowMessage(resultNumber);
}

void InputExit;
{
 Exit;
}

void SetNumInput;
{
   stNumber = Clomosy.GlobalResult;
   InputAndCall('Yüzde giriniz','','SetPerInput','InputExit');
}


{
  InputAndCall('Sayı giriniz','','SetNumInput','InputExit');
}