e6): 1:13,« Pcp=», PcpVIIa/1e6: 1:13) ;
close(shit);(f,«grad.txt»);(f1,«grad1.txt»);(f);rewrite(f1);
Продовження додатка А
for i:=1 to 19 do
beginj:=1 to 34 do write (f, giv [i, j] / 1e6: 1:13, «»); (f);; i:=1 to 16 doj :=1 to 34 do write (f1, giv1 [i, j] / 1e6: 1:13, «»); (f1);; (f); close (f1); until keypressed;.