Giúp mik vs ạ..............

uses crt;
var i,j,k: integer;
begin
clrscr;
    writeln('Cac cach tra tien la: ');
    for i:=1 to 10000 div 1000 do
        for j:=1 to 10000 div 2000 do
            for k:=1 to 10000 div 5000 do
                if 1000*i+2000*j+5000*k=10000 then writeln(i,' to 1000 | ',j,' to 2000 | ',k,' to 5000');
    readln
end.