5.Faça um programa que leia um número e gere todos os números primos entre 1 e este número fornecido, exibindo-os na tela. O programa deve ter uma sub-rotina que determine se o determinado número é ou não primo.

Program Pzim ;
var
k,nm,num: integer;
ehPrimo: boolean;

procedure testaPrimo(a:integer);
var
cont,j,i :integer;

begin
for i:=1 to a do
begin
j:=(a mod i);
if(j=0)then
cont:= cont+1;
end;
if(cont=2)then
ehPrimo:=true
else
ehPrimo:=false;
end;


Begin
writeln('Digite um numero:');
readln(nm);
ehPrimo:=false;
for k:=1 to nm do
begin
testaPrimo(k);
if (ehPrimo) then
write(k ,'-');
end;

End.