... Writeln(&apos ;Cac so Mersen <=',N,' la:'); End; tuso:=tuso div a; mauso:=mauso div a; Write('Phan so p/q sau khi rut gon la ',tuso,'/ ',mauso); readln; END. ... crt; Var tuso,mauso,a,b,r:integer; BEGIN clrscr; Writeln('Nhap phan so p/q'); Write('p=');readln(tuso); Write('q=');readln(mauso); a:=abs(tuso); b:=abs(mauso); While ... Write('N=');readln(N); Writeln(N,' So tu nhien dau tien ma moi so trong chung'); Writeln('khong chia het cho bat ky so tu nhien nguyen to'); Writeln('nao khac ngoai cac so 2,3,5 la:');...