11 lines
166 B
ObjectPascal
11 lines
166 B
ObjectPascal
var m,i:integer;
|
|
begin
|
|
for m:=5 to 30 do begin
|
|
writeln('äåëèòåëè ÷èñëà ',m,':');
|
|
for i:=2 to m-1 do begin
|
|
if m mod i = 0 then
|
|
write(i, ' ');
|
|
end;
|
|
writeln();
|
|
end;
|
|
end. |