Составьте программу вычисления среднего арифметического…

Var a, b, z, i: integer; begin readln (a); if (a < 0) then beginz: =z+a; i: =i+1; end; readln (b); if (b < 0) then beginz: =z+b; i: =i+1; end; if (i > 0) then writeln (z/i); end.