program SumEmUp; uses crt; var infile,outfile:text; x,y:integer; num1,num2,te:integer; sum:longint; begin assign(infile,'DATA31.txt'); reset(infile); assign(outfile,'OUT31.txt'); rewrite(outfile); for x:=1 to 5 do begin readln(infile,num1,num2); if num1>num2 then begin te:=num1; num1:=num2; num2:=te; end; sum := 0; for y:=num1 to num2 do begin sum := sum + y; if y<>num2 then write(outfile,y,'+'); end; if num1=num2 then begin sum:=sum*2; write(outfile,num1,'+'); end; writeln(outfile,num2,'=',sum); end; close(infile); close(outfile); end.