Написать программу по "напишите программу получение из заданного целочисленного массива размером 30 элементов кол-во положительных, отрицательных и нулевых значений "

Program adelia17; uses crt; const n=30; var   matr: array [1..n] of integer;   i,pos,neg,zero: integer; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln(); writeln();   writeln('программа находит количество положительных, отрицательных и нулевых элементов массива');   pos: =0; neg: =0; zero: =0;   randomize;   writeln('массив: ');   for i: =1 to n do   begin           matr[i]: =random(100)-50;           write(matr[i]: 4,' ');           if matr[i]> 0 then pos: =pos+1;           if matr[i]< 0 then neg: =neg+1;           if matr[i]=0 then zero: =zero+1;       end;       writeln();   writeln('количество положительных элементов равно ',pos);   writeln('количество отрицательных элементов равно ',neg);   writeln('количество      нулевых      элементов равно ',zero); end.

Const n = 30; var a: array [1..n] of integer; b,c,d,i: integer; begin        writeln('vvedite massiv');           for i: =1 to n do        readln(a[i]);         b: =0; c: =0; d: =0;         for i: =1 to n do begin        if a[i] = 0 then inc(b);         if a[i] > 0 then inc(c);         if a[i] < 0 then inc(d);         end;         writeln('kol-vo ravnih 0 - ',b);         writeln('kol-vo bolshe 0 - ',c);         writeln('kol-vo menshe 0 - ',d);         readln; end.

var

a,b,c: integer;

begin

readln(a); readln(b); readln(c);

if a mod 2 < > 0 then

  writeln('первое нечетное')

else if a mod 2 = 0 then  

  writeln('первое четное');

   

  if b mod 2 < > 0 then

  writeln('второе нечетное')

else if b mod 2 = 0 then  

  writeln('второе четное');

   

  if c mod 2 < > 0 then

  writeln('третие нечетное')

else if c mod 2 = 0 then

  writeln('третие четное');

   

end.

using system;

namespace consoleapp33

{

    internal class program

    {

        private static void main(string[] args)

        {

            var a = int.parse(console.in.;

            var b = int.parse(console.in.;

            var c = int.parse(console.in.;

            console.out.writeline((int) math.floor((c - a) / (double) b));

        }

    }

}