Program Pzim ;
{1. Escrever um programa para ler um número inteiro
e maior ou igual a 4 (faça a verificação), e mostre
todos os seus divisores exceto 1 e o numero lido.}
var
num, i:integer;
Begin
writeln('digite um numero maior que 4 : '); {solicita que seja digitado um numero}
readln(num); {lê o numero digitado}
if (num>=4) then {se numero for igual ou maior que 4 entra no FOR}
begin
for i:=2 to num-1 do {faz de 2 até o numero lido}
begin
if (num mod i=0) then {se o numero for divisivel ...}
begin
write(i,', '); {... exibe os numeros}
end;
end;
end {se o numero for menor que 4, exibe a mensagem}
else
begin
writeln('O número digitado dever ser igual ou maior que 4');
end;
End.
