Odpowiedzi

2010-04-07T15:45:39+02:00
Program wdzielniki;
uses CRT;
var
m,i: integer;
begin
Clrscr;
Writeln('Podaj liczbe m:');
readln(m);
i := 1;
repeat
if m mod i = 0 then write(i,', ');
i := i + 1;
until
i = m;
readln;
end.