Написать программу, распределяющую эти гири на очень вероятное количество пар так,

var nbsp;n, p, i, j : longint;
nbsp;nbsp;f1, f2 : text;
function prostoe(n:longint): boolean;
nbsp;nbsp;var i, j : longint; t : boolean;
begin
nbsp;nbsp;j:=2; t:=true;
nbsp;nbsp;while t and (j*jlt;=n) do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;if n mod j=0 then t:=false;
nbsp;nbsp;nbsp;nbsp;j:=j+1
nbsp;nbsp;end;
nbsp;nbsp;prostoe:=t
end;
begin
nbsp;nbsp;assign(f1,input.txt); reset(f1);
nbsp;nbsp;assign(f2,output.txt); rewrite(f2);
nbsp;nbsp;read(f1,n);
nbsp;nbsp;while ngt;1 do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;p:=n+1;
nbsp;nbsp;nbsp;nbsp;while not prostoe(p) do p:=p+1;
nbsp;nbsp;nbsp;nbsp;i:=p-n; j:=n; n:=i-1;
nbsp;nbsp;nbsp;nbsp;while ilt;j do
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;writeln(f2,i, ,j);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;i:=i+1; j:=j-1
nbsp;nbsp;nbsp;nbsp;end
nbsp;nbsp;end;
nbsp;nbsp;close(f2)
end.