program bilangan prima (pascal)

program bilanganprima;
uses crt;
var
Iawal,Iakhir,i,j,Temp : integer;
begin
write('Masukan range awal : ');readln(Iawal);
write('Masukan range akhir: ');readln(Iakhir);
for i:=Iawal to Iakhir do begin
temp:=0;
for j:=1 to i do begin
if (i mod j = 0) then
temp:=temp+1;
end;
if (temp=2) then
write(i,' ');
end;
readln;
end.