nr_pr_ro.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program nr_prim;
var a,b,i,j,d :integer;
begin
write('a=');readln(a);
write('b=');readln(b);
for i:=a to b do
   begin
   d:=0;
   for j:=2 to trunc(sqrt(i)) do
       if i mod j =0 then d:=d+1;
       if d=0 then write('i=',i);
   end;
readln;
end.