a:array[1..50] of integer;

[KulOle]

program xoop2;
var
i,l:integer;
min1,min2:integer;
a:array[1..50] of integer;
b:array[1..40] of integer;}
procedure port(var x,y:integer);
begin
port:=(x-y)/2;
end;
begin
miny:=100;
maxx:=-100;
for i:=1 to 50 do
begin
a[i]:=random(50);
if a[i]maxx then maxx:=a[i];
end;
for l:=1 to 40 do
begin
b[l]:=random(40);
if b[l]<miny then miny:=b[l];
end;
readln(maxx,miny);
port(maxx,miny);
writeln(port);

end.

[alex_fcsm]

program xoop2;
var
i,l:integer;
miny,maxx:integer;
a:array[1..50] of integer;
b:array[1..40] of integer;
function port(var x,y:integer):real;
begin
port:=(x-y)/2;
end;
begin
miny:=100;
maxx:=-100;
for i:=1 to 50 do
begin
a[i]:=random(50);
if a[i]>maxx then maxx:=a[i];
end;
for l:=1 to 40 do
begin
b[l]:=random(40);
if b[l]<miny then miny:=b[l];
end;
readln(maxx,miny);
writeln(port(maxx,miny));
end.