Pascalda Asal Sayı Programı, Pascalda Asal Sayıyı Bulan Program

program asal_olup_olmadigi;

uses crt;

var

   n,i,tb:longint;

   harf:char;

begin

     clrscr;

     repeat

     begin

     write('N SAYISINI GIRINIZ...:');readln(n);

     for i:=2 to (n-1) do

     begin

     if n mod i = 0 then tb:=tb+1;

     end;

     if tb = 0 then writeln('ASAL..!')

     else writeln('SAYI ASAL DEGIL..!');

     end;

          repeat

                 writeln('DEVAM ETMEK ISTIYOR MUSUN..:(H/E)'); readln(harf);

          until harf in ['h','H','e','E'];

     until (harf='H') or (harf='h');

end.