Program Pzim ;
Var
x,num,teste:integer;
Begin
Writeln('Digite um numero:'); //solicita que seja digitado um numero
Read(Num); //lê o número
Write ('São divisores de ',num,', :'); //exibe a mensagem uma vez
For x:=1 to num do //faz de 1 até o numero ( processo de divisão)
Begin //teste verifica se é divisor.
teste:=num mod X; //um numero é divisor quando o resto é igual a zero
If teste=0 then
Write (X,', '); // se for divisor, mostra o numero, todos na mesma linha
End;
End.
