var p, i, n: integer; ... p := 1; n := 1000000000; for i := 1 to n do p := (p * 11856) mod 1743; write(p);