void TForm1::Skaiciuoti()
{
bool Pirminis (int skaicius)
{
if (skaicius <= 0) return false;
int n = 0;
for (int x = 0; x < skaicius; x++)
{
if (skaicius % (x + 1) == 0)
n++;
}
return (n < 3);
}


{
int n;
for (int x = 0; x < 40; x++)
n = pow ( x, 2.0 ) + x + 40;
{
 if (Pirminis(n))
 Memo1->Lines->Add("Viskas Okey");
 }
    {
    if ((n > 0 ) && (n <= 1000))
    Memo1->Lines->Add("Veiksmas negalimas");
   }
return n;
}