野性任务无删减版在线:这个程序的运行结果是多少?

program prog;
var
u:array[0..3] of integer;
a,b,c,x,y,z:integer;
begin
read(u[0],u[1],u[2],u[3]);
a:=u[0]+u[1]+u[2]+u[3]-5; a=13
b:=u[0]*(u[1]-u[2] div u[3]+8); b=24
c:=u[0]*u[1] div u[2] * u[3]; c=4
x:=(a+b+2)*3-u[(c+3) mod 4]; x=113
y:=(c*100-13) div a div (u[b mod 3]*5); y=2
if ((x+y) mod 2=0) then z:=(a+b+c+x+y) div 2;
z:=(a+b+c-x-y)*2; z=-148
writeln(x+y-z);
read(a);
end.
输入：2 5 7 4
输出：_____________________。
4、-------------------------------------------
program program4 ;
var c:array[1..3] of string[200];
s:array[1..10] of integer;
m,n,i:integer ;
procedure numara;
var cod:boolean;
i,j,nr:integer;
begin
for j:=1 to n do begin
nr:=0;cod:=true;
for i:=1 to m do
if c[i,j]='1' then begin
if not cod then begin
cod:=true;inc(s[nr]);nr:=0;
end
end
else begin
if cod then begin
nr:=1;cod:=false ;
end
else inc(nr);
end;
if not cod then inc(s[nr]);
end;
end;
begin
readln(m,n);
for i:=1 to m do readln(c[i]);
numara;
for i:=1 to m do
if s[i] <>0 then write(i,' ',s[i],' ');
read(i);
end.
输入：
3 10
1110000111
1100001111
1000000011
输出：_____________________。