Составители:
Рубрика:
63
Inc(I);
ReadLn(F, Arstr[I]);
end;
Im:=I;
Close(F);
end;
procedure SetArpt;
begin
for I:=1 to Im do Arpt[I]:=Pt(I);
end;
procedure WrArpt;
begin
OpenWr;
for I:=1 to Im do
begin
if WhereX > 55 then begin WriteLn;WriteLn(F); end;
Write(' Arpt[', I, '] = ', Arpt[I]:2);
Write(F, ' Arpt[', I, '] = ', Arpt[I]:2);
end;
Close(F);
end;
begin {программа}
SetArst;
SetArpt;
WrArpt;
end.
