Условие:
Вычислить z=(s+s2)/(k1+k2), где s и k1 – сумма и количество положительных элементов массива x(N); s2 и k2 – сумма и количество положительных элементов массива y(M). M=<100, N=<100.

program lab72;
var n,m,a,b,s,s2,k1,k2:integer;
x,y: array [1..100] of integer;
procedure z;
begin
s:=0;
k1:=0;
s2:=0;
k2:=0;
for n:=1 to a do if x[n]>0 then
begin
s:=s+x[n];
k1:=k1+1;
end;
for m:=1 to b do if y[m]>0 then
begin
s2:=s2+y[m];
k2:=k2+1;
end;
end;
begin
writeln('введите элементы массива x');
readln(a);
for n:=1 to a do
begin
writeln('введите элементы массива x');
readln(x[n]);
end;
writeln('введите размерность массива y');
readln(b);
for m:=1 to b do
begin
writeln('введите элементы массива y');
readln(y[m]);
end;
writeln('z=',(s+s2)/(k1*k2):2:2);
end. [Ответ]

каковы симптомы? [Ответ]

mobilephone, не ставь ; перед ендом
да и переменные в одной строчке с вар-ом писать-моветон.
о скок я уже ошибок нашел.. [Ответ]

блин, пользуйтесь тегом code. непонятно же нифига...

mobilephone, процедуру расчета не вызвал. [Ответ]