program dk;
type mass=array [1..100] of integer;
 
var k,l,i:integer;
    a,b,c:mass;
    ko1,ko2:integer; ko3:real;
 
function max(x:mass; n:integer):integer;
var i,m:integer;
begin
m:=x[1];
for i:=2 to n do
if x[i]>m then m:=x[i];
max:=m; end;
 
function min(x:mass; n:integer):integer;
var i,m:integer;
begin
m:=x[1];
for i:=2 to n do
if x[i]<m then m:=x[i];
min:=m; end;
 
begin
write('Vvedite "k"= '); readln(k);
write('Vvedite "l"= '); readln(l);
writeln;
for i:=1 to k do
begin write('a[',i,']= '); readln(a[i]); end;
writeln;
for i:=1 to l do
begin write('b[',i,']= '); readln(b[i]); end;
writeln;
for i:=1 to 10 do
begin write('c[',i,']= '); readln(c[i]); end;
 
write('A[1..k]=  ');  for i:=1 to k do write(a[i],'  ');  writeln;
write('B[1..l]=  ');  for i:=1 to l do write(b[i],'  ');  writeln;
write('C[1..10]= '); for i:=1 to 10 do write(c[i],'  ');  writeln;
 writeln;
 
 ko1:=min(b,l)+min(c,10);
 ko2:=abs(max(a,k));
 ko3:=1+sqr(sin(max(c,10)));
 
writeln('min(b,l)+min(c,10)= ',ko1);
writeln('abs(max(a,k))= ',ko2);
writeln('1+sqr(sin(max(c,10)))= ',ko3:0:2);
 
readln;
end.