Pascal/Turbo Pascal - numeros primos

¿Cual es la manera mas fácil de resolver el siguiente programa?
Escribe un programa en Pascal que pida numeros hasta teclear un numero primo.

La manera mas facil es pedirle numeros a el usuario y cada vez que se teclee un numero llamar a una funcion que evalue el numero y devuelva verdadero o falso segun si el numero es primo o no, si devuelve verdadero terminar el programa

pls la respuesta que me diero al programa que les dije no me sirve... me pueden explicar como hacer el programa de los numero primos.... pls

Entonces tu problema se reduce a determinar si un número es primo o no. Bien.
Aunque estoy seguro que alguien más lo ha hecho antes (y mejor que yo) esta es mi solución al problema:
function EsPrimo(Num: Longint): Boolean;
var
I, Max: Longint;
begin
EsPrimo:=true; { verdadero por omisión }
if (Num=1) then
begin
EsPrimo:=false;
exit; { sale }
end;
Max:=trunc(sqrt(Num)); { calcula el máximo posible }
for I:=2 to Max do
if Num mod i = 0 then { es division exacta? }
begin
EsPrimo:=false;
exit; { sale }
end;
end; { EsPrimo }

Y se usa así:

if EsPrimo(Numero) then WriteLn('El número ',Numero,' es primo.')
else WriteLn('El número ',Numero,' no es primo.');

la verdad no le entendi a la forma de resolver el problema de los numeros primos... please alguien me puede explicar o resolver este problema con otro metodo... ha y MUCHAS GRACIAS DIEGO!! espero concerte pronto x messenger....

att mara saludos...

Hola Mara! Aquí te presento un código... no se será el más eficiente, pero funciona.

<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
program Numeros_primos;

uses crt;

{función que determina si es primo o no}
function EsPrimo(numero : integer) : boolean;
var
primo : boolean;
i : integer;
begin
primo:=true;
i:=2;
{busco divisores... verifico para cada uno de los antecesores (comenzando con el 2) hasta que terminen o hasta que se demuestre que no es primo}
while (i < numero) and (primo) do
begin
if (numero mod i) = 0 then
primo:=false
else
i:=i + 1;
end;
EsPrimo:=primo;
end;

{***** CÓDIGO PRINCIPAL *****}
var
numero : integer;
begin
ClrScr;
{pido que se ingrese un número hasta que venga uno primo}
repeat
Write('Escribe un número: ');
ReadLn(numero);
until(EsPrimo(numero));
end.

<><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

Espero que lo entiendas y que aún te sea útil. Besos!

CHARLIE!!¿QUE PARTE VA PRIMERO?

hola yo tengo la misma practica y tampoco tengo mucha idea pero de los que si estoy seguro es que no puede utilizar fuentes de turbopascal lo del uses crt ese ;) un saludo y gracias