Mă poate ajuta cineva cu acest program în pascal vă rog?

Răspuns:
program divizoriProprii;
var
a, n : integer;
begin
writeln ('n = ');
read (n);
{ parcurgerea si afisarea divizorilor proprii}
for a := ( n div 2 ) downto 2 do
begin
if( n mod a = 0) then
write ( a:2 );
end;
end.
Explicație: