Asal sayı bulma

   1'den 100'e kadar olan asal sayıları bulmak için yazdığım kodda 2,3,5 ve 7'yi asal değil olarak kabul ediyor.Bu sorunu nasıl düzeltebilirim?

var
sayi1 : Integer
{
  sayi1 = 3
  if((((sayi1 div 2==0)||(sayi1 div 3==0)||(sayi1 div 5==0)||(sayi1 div 7==0))))
  ShowMessage('Asal Değil')
  else if (sayi1 ==1)
  ShowMessage('Asal Değil')
  else if ((((sayi1 div 7==1)||(sayi1 div 5==1)||(sayi1 div 3==1)||(sayi1 div 2==1))))
 ShowMessage('Asal')
  else
  ShowMessage('Asal')
 }

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Alper Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 2 Saat 40 Dakika Önce Durum: Aktif Değil Puanlar: 2	Mesaj Seçenekleri Yanıt Yaz Alıntı Alper Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Asal sayı bulma Gönderim Zamanı: 2 Saat 29 Dakika Önce Saat 14:13
	1'den 100'e kadar olan asal sayıları bulmak için yazdığım kodda 2,3,5 ve 7'yi asal değil olarak kabul ediyor.Bu sorunu nasıl düzeltebilirim? var sayi1 : Integer { sayi1 = 3 if((((sayi1 div 2==0)\|\|(sayi1 div 3==0)\|\|(sayi1 div 5==0)\|\|(sayi1 div 7==0)))) ShowMessage('Asal Değil') else if (sayi1 ==1) ShowMessage('Asal Değil') else if ((((sayi1 div 7==1)\|\|(sayi1 div 5==1)\|\|(sayi1 div 3==1)\|\|(sayi1 div 2==1)))) ShowMessage('Asal') else ShowMessage('Asal') } https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
	Alper