Паскаль,написать программу: Организовать с клавиатуры ввод N произвольных целых чисел. Определить количество отрицательных и сумму положительных.

varn, i, a, kotr, sumpol: longint;beginreadln(n);kotr := 0;sumpol := 0;for i := 1 to n do beginread(a);if (a < 0) theninc(kotr)elsesumpol := sumpol + a;end;writeln('Количество отрицательных чисел = ', kotr);writeln('Сумма положительных чисел = ', sumpol);