1-50 ARASI ASAL SAYILARI BULAN PROGRAM


uses crt;
var
   I,J:integer;
   Asal:boolean;
begin
     clrscr;
     for I:=1 to 50 do
     begin
          Asal:=true;
          for J:=2 to I-1 do
          if I mod J=0 then begin Asal:=False;break;end;
          if Asal then writeln(I,'asal sayidir.');
     end;
     readln;
end.