Помогите собрать сборку на паскаль онлайн

 program CalculateProductAndSum; 
var 
  N, num: integer; 
  product: longint; 
  sum: integer; 
begin 
  product := 1; 
  sum := 0; 
   
  writeln('Введите количество чисел (N):'); 
  readln(N); 
   
  writeln('Введите ', N, ' чисел:'); 
   
  for var i := 1 to N do 
  begin 
    readln(num); 
     
    if num > 0 then 
      product := product * num 
    else if num < 0 then 
      sum := sum + num; 
  end; 
   
  writeln('Произведение положительных чисел: ', product); 
  writeln('Сумма отрицательных чисел: ', sum); 
end.