uses crt; {khai bao' thu vien crt}
var x,i:integer;
clrscr;
BEGIN clrscr;{ cau lenh xoa man hinh};
write('Nhap x: ');readln(x);
writeln('nhap so nguyen duong x'); readln(x);
for i:=1 to x do if x mod i=0 then writeln('Uoc cua n la',n/i:0:0);
readln
end.