merhabalar arkadaşlar bu yazdıgım oluyormu yardım edermisiniz
var
n:int
begin
Write('sayiyi gir');
Read(n);
if n mod say=0 write('sayi asal degil');
end;
say=say+1 if(say