Viết Phương trình con Tìm UCLN của 2 số nguyên a,b Tìm BCLN của 2 số nguyên a,b Kiểm tra số nguyên tố Hoán đổi 2 số a,b

program tim_uoc;

uses crt;

var n,i,j:longint;

begin

clrscr;

write(‘nhap so n:’);readln(n);

write(‘cac uoc cua n la:’);

for i:=1 to n do

if n mod i=0 then write(i:3);

writeln;

j:=0;

for i:=1 to n do

if n mod i=0 then j:=j+1;

if j=2 then writeln(n,’ la so nguyen to’)

else writeln(n,’ khong phai la so nguyen to’);

readln;

end.