Числа введённые случайным образом (от -15 до 23) необходимо определить количество отрицательных,положительных,чёт,нечёт чисел,мин и макс число в последовательности и вывести сообщение на экран при присутствии в последовательности 0.
(паскаль )

var n,i,a,ko,kp,k1,k2,min,max,k:integer;

begin

write('Введите количество чисел в последовательности (n>0) ');

readln (n);

a:=random(39)-15;

min:=a;

max:=a;

write ('Последовательность ');

for i:=1 to n do

begin

if a=0 then k:=1;

if a<0 then ko:=ko+1;

if a>0 then kp:=kp+1;

if a mod 2 = 0 then k2:=k2+1 else k1:=k1+1;

if a<min then min:=a;

if a>max then max:=a;

write (a,'  ');

a:=random(39)-15;

end;

writeln;

writeln ('Количество отрицательных чисел ko = ',ko);

writeln ('Количество положительных чисел kp = ',kp);

writeln ('Количество чётных чисел k2 = ',k2);

writeln ('Количество нечётных чисел k1 = ',k1);

writeln ('Минимальное число min = ',min);

writeln ('Максимальное число max = ',max);

if k=1 then writeln ('В последовательности присутствовал 0')

end.