CAC PHAN SO TRONG [0;1] KHONG TRUNG NHAU

uses crt;
var y,n,i,j,k,t:integer;
        x:real;
        a:array[1..100] of real;
begin
clrscr;
write('nhap n=');readln(n);
for i:=1 to n do
for j:=1 to n do
begin
x:=i/j;
if (x<1) then
begin
inc(k);
a[k]:=x;
for y:=k-1 downto 1 do
if a[k]=a[y] then dec(k);
 end; end;
t:=k;
begin
 if (a[k]<>a[i+1]) then
writeln(a[k]:4:2);
end;
for k:=1 to t do
writeln(a[k]:4:2);}
writeln('co ',t+2,' phan so');
readln;
end.