1 тип
###
var a:bi;
for var x:=0 to 18 do
begin
  a:=9*19bi**7+8*19bi**6+8*19bi**5+11*19bi**4+(7+x)*19bi**3+(x+9)*19bi**2+4*19+4;
  if a mod 18 = 0 then
    println(x,a/18)
end


2 тип
###
uses school;
(3*3125bi**8+2*625bi**7-4*625bi**6+3*125bi**5-2*25bi**4-2025)
.tobase(25).countof('0').pr;


3 тип
###
uses school;
for var x:= 2030 downto 1 do begin
  var a:= (7bi**170+7bi**100-x).tobase(7).countof('0');
  if a=71 then println(x)
end;