Var a,b:integer;
Begin
randomize;
a:=random(80001)-40000;
b:=random(80001)-40000;
if a>b then writeln(b,', ',a)
else writeln(a,', ',b);
End.
const n=10;
var a: array[1..n] of integer;
i,s: integer;
begin
s:=0;
write('massiv: ');
for i:=1 to n do begin
a[i]:=random(201)-100;
write(a[i],' ');
s:=s+a[i];
end;
writeln;
write('sum=',s);
end.