Вдесятичной записи числа 42**4 замените звездочки цифрами, если известно, что число кратно 72. выведите найденные числа на экран. решите, , не через for. буду .

Program z1;
var i:byte;
        s:longint;
begin
        i:=0;
        while i<=99 do begin
                s:=42004+i*10;
                if (s mod 72)=0 then begin
                        writeln(s)
                        end;
                i:=i+1
        end;
        readln
end.