viết chương trình pascal nhập vào 2 số x,y sau đó in ra ucln và bcnn và x,y có tất cả bao nhiêu ước(chỉ cần in ra số lượng)

uses crt;
var u, i2, b, t, i, x, y, dem: integer;
begin
clrscr;
write (‘nhap x: ‘);  readln (x);
write (‘nhap y: ‘);  readln (y);
{randomize;
x:=random(1000);
y:=random(1000);
writeln (x);
writeln (y);  }
b:=x*y;
t:=y mod x;
while t<>0 do
begin
t:=x mod y;
x:=y;
y:=t;
end;
u:=x;
b:=b div u;
writeln (‘UCLN la: ‘,u);
writeln (‘BCNN la: ‘,b);
dem:=0;
for i:=1 to x do
if x mod i = 0 then
begin
write (i,’   ‘);
dem:=dem+1;
end;
writeln (‘co tat ca ‘,dem,’ UC’);
readln;
end.