void __fastcall TForm1::Button1Click(TObject *Sender)
{
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, x, pirminis;
for (int x = 0; x < 40; x++)
n = pow ( x, 2.0 ) + x + 40;
{
 if (Pirminis(n))
    {
    if ((n > 0 ) && (n <= 1000))
    {
    Memo1->Lines->Add("Veiksmas negalimas");
   }
return n;
}
}
Button1->Enabled = false;
Button2->Enabled = true;
Button3->Enabled = true;
}
Memo1->Enabled = true;
}