Написать программу Пользователь вводит 5 целых чисел,программа находит сумму всех отрицательных и произведение всех положительных чисел

uses CRT; var i,s,p,a,n:integer; begin   p:=1;    write('введите кол-во чисел ');   readln(n);   for i:=1 to n do begin                             write('введите ',i,'число: ');                             readln(a);                             if a<0 then s:=s+a                             else p:=p*a                           end;  writeln('сумма отрицательных чисел равна: ',s);  writeln('произведение всех положительных чисел равно: ',p) end. как-то так)