Вычислить значение выражения

var s:real;
i,k:integer;
B:array[1..100] of real;
z:array[1..100] of real;
 
begin
 
for i:=1 to 3 do
begin
readln(b[1]);
end;
 
for k:=1 to 2 do
begin
 
readln(z[1]);
 
S:= sin(b[i]) +cos (sqr(b[i])+1)/ sin( Z[k]);
 
writeln('S=',s);
end;
 
end.

program test;
var b:array[1..10] of integer;
z:array[1..15]of integer;
i:integer;s:real;s1,s2,s3:real;
begin
randomize;
for i:=1 to 10 do
begin
b[i]:=random(10);
end;
for i:=1 to 15 do
z[i]:=random(10);
s1:=0;s2:=0;s3:=1;
for i:=1 to 10 do
begin
s1:=s1+sin(b[i]);
s2:=s2+(sqr(b[i])+1);
end;
for i:=1 to 15 do
s3:=s3*sin(z[i]);
s:=(s1+cos(s2))/s3;
writeln(s:6:2);
readln;
end.

var i,k:integer;
s:real;
 
b:array[1..100] of real;
Z:array[1..100] of real;
 
begin
 
 
writeln('Vvedi ') ;
 
readln(b[1]);
readln(z[1]);
for k:=1 to 15 do
 
for i:=3 to 10 do
 
begin
 
S:= sin(b[i]) +cos (sqr(b[i])+1)/ sin( Z[k]);
writeln(i,'  ' ,k,'  ', 'S=',s);
 
end;
 
end.

var i,p:integer;
   s1  ,s, p1,s2:real;
   
   b:array[1..10]of real;
   z:array[1..15] of real;
      begin
s1:=0;
s2:=0;
p:=1;
for i:=1 to 10 do
begin
s1:=s1+sin(b[i]);
s2:=s2+sqr(b[i]);
end;
for i:=1 to 15 do
p1:=p1*sin(z[i]);
s:=(s1+cos(s2)+1)/p1;
end.

var i,p,k:integer;
   s1  ,s, p1,s2:real;
   
   b:array[1..10]of real;
   z:array[1..15] of real;
      begin
s1:=0;
s2:=0;
p:=1;
 
readln(b[1]);
readln(z[1]);
 
for i:=1 to 10 do
begin
s1:=s1+sin(b[i]);
s2:=s2+sqr(b[i]);
end;
 
for k:=1 to 15 do
 
p1:=p*sin(z[i]);
 
s:=(s1+cos(s2)+1)/p1;
 
writeln('S=',s);
end.

var
a,b:array[1..100]of integer;
max,i,j,KolA,KolB:integer;
begin
read(KolA);
for i:=1 to KolA do
read(a[i]);
read(KolB);
for i:=1 to KolB do
read(b[i]);
for i:=1 to KolA do
  for j:=1 to KolB do
  if abs(a[i]-b[j])>max then max:=abs(a[i]-b[j]);
writeln (max);
end.