Какую величину вычисляет программа?
var a:array [1..3,1..4] of integer;
var i,j,k:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do read (a[i.j]);
for i:=1 to 3 do begin
k:=0;
for j:=1 to 4 do
if a[i,j]> 0 then inc(k);
end;
write(k)
end.