var

i,toplam : Integer;

values:String;

form:TCLform;

void SetInputQueryString;

{

toplam=0;

   try

    values = Clomosy.GlobalResult;

    values=StrToInt(values);

   for(i=1 to values)

   {

     if (values mod i == 0) 

   { 

   toplam=toplam+i;

    }}

    

    if(values==toplam)

    { 

   ShowMessage(' Mükemmel Sayidir'); 

  }

  else{

    ShowMessage(' Mükemmel Sayi Degildir');

  }

    except

      //ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);

      ShowMessage('Bir sayi giriniz ');

}

}

void InputExit;{

  Exit;

}

 {

 form=TCLform.Create(self);

 

 InputAndCall('Sayı giriniz','default','SetInputQueryString','InputExit');

  

}

//mükemmel değildir diyor her seferinde