20 lines
706 B
Python
20 lines
706 B
Python
#!/usr/bin/env python3
|
|
|
|
from bai4 import libai4
|
|
|
|
|
|
with open("BAI4.PAS", "w") as f:
|
|
f.write("const\n m: array[1..9] of byte = (")
|
|
l = [libai4(i) for i in range(1, 10)]
|
|
f.write(", ".join([str(len(i)) for i in l]))
|
|
f.write(");\n equa: array[1..9] of ansistring = (\n");
|
|
l0 = []
|
|
for i in l:
|
|
s = " #10" + "".join(["'" + j.replace("\n", "'#10") for j in i])
|
|
l0.append(s)
|
|
f.write(",\n".join(l0))
|
|
f.write("\n );\n\nvar\n n: byte;\n f: text;\n\nbegin\n")
|
|
f.write(" assign(f, 'BAI4.INP');\n reset(f);\n read(f, n);\n")
|
|
f.write(" close(f);\n\n assign(f, 'BAI4.OUT');\n rewrite(f);\n")
|
|
f.write(" write(f, m[n], equa[n]);\n close(f)\nend.\n")
|