Как мне сделать чтобы ответ был 6 28, а не 628 слитно паскаль

var i, j, n, p: integer;

begin
readln(n);
for i:= 1 to n do
begin
p := 0;
for j := i - 1 downto 1 do
if (i mod j = 0) then p := p + j;
if p = i then write (i);
end;
end.

gagag590    3   31.05.2021 13:35    0