Numeros Primos

[quel 0]

Olá pessoal estou com uma duvida nesse exercicioFaça um programa que mostre os numeros primos entre 1000 e 1Program numeros_primos;uses Crt;varnum_primo : integer;cont: integer;divisores:integer;begin Clrscr; for cont:=1000 downto 1 do begin for divisores:=cont-1 downto 1 do begin if cont mod divisores=0 then break; end; {e primo?} begin if divisores=1 then writeln(inttostr(cont)); Readkey; end; end; end.Só que esta dando um erro, tipo um erro nao identificado,acho que esse programa nao esta certo naoObrigada

[janielton 0]

que significa isso? -> writeln(inttostr(cont)); OBS: sintaxe do write tem q ter as aspas simples..e esse inttostr???

[Vergil 15]

IntToStr é uma função que transforma um valor inteiro em string. Já foi discutido este assunto noutro tópico, dê uma olhada: http://forum.imasters.com.br/index.php?sho...5&hl=primos