suma_nr_.pas

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

program suma_nr_prime;
var n,p,i,t :integer;
begin
write ('n=');readln(n);
p:=0;
t:=0;
if (1<=n) and(n<=1000) then
  for i:=2 to n-1 do
  begin
  if n mod i =0 then p:=p+1;
      if p=0 then
      begin
      write ('i=',i);
      t:=t+1;
      end;
   write('t=',t);
   end;
end.