Programalama > PASCAL

program asalsayi;
uses crt;
var
   x,y:integer;
label
     yeniden;
begin
     clrscr;
     yeniden:
     write('Bir sayı giriniz : '); readln(x);
     if x<2 then
     begin
     clrscr;
     writeln('Lütfen geçerli bir sayı giriniz!');
     goto yeniden;
     end;
         for y:=x-1 downto 2 do
             begin
             if x mod y = 0 then
                begin
                clrscr;
                writeln('Asal değil');
                y:=2;
                end
             else
                begin
                clrscr;
                writeln('Asal');
             end;
         end;
         readln;
end.