Пример трёх целых положительных чисел, сумма которых равна 407, а произведение оканчивается на шесть нулей. решит с программой турбо паскалье

Program danya;uses crt;var a,b,c:integer;beginclrscr;for a:=1 to 1000 do begin    for b:=1 to 1000 do begin        for c:=1 to 1000 do begin            if (a+b+c=407) and (a*b*c mod 1000000 = 0) then writeln ('',a,' ',b,' ',c);        end;    end;end;end.