program m1;var x,del:integer;beginwrite('Введите x: '); readln(x);write('Делители: ');for del:=1 to x doif (x mod del)=0 thenwrite(del,' ');writeln;end.
program m1;
var x,del:integer;
begin
write('Введите x: '); readln(x);
write('Делители: ');
for del:=1 to x do
if (x mod del)=0 then
write(del,' ');
writeln;
end.