Một số bài pascal hay và thường xuất hiện trong các đề thi

code dầy đủ với số N=100 then begin if (k=0) and (l=0) then write(a[m],' tram ') else begin write(a[m],' tram '); if (k0) and (k1) then begin write(a[k],' muoi '); if l=1 then write('mo''t') else if l=5 then write('lam') else write(a[l]); end else if k=0 then write('le ', a[l]) else if k=1 then write ('muoi ',a[l]); end; end else if nn>=10 then begin if k1 then begin write(a[k],' muoi '); if l=1 then write('mo''t') else if l=5 then write('lam') else write(' ',a[l]); end else if k=1 then begin if l5 then write('muoi ',a[l]) else write('muoi lam'); end; end else write(a[l]); readln; end