запросить 5 произвольных чисел . найти сумму отрицательных и произведение положительных

// PascalABC.NET 3.1, сборка 1195 от 09.03.2016begin  var s:=0.0;  var p:=1.0;  var c:real;  for var i:=1 to 5 do begin    Write('Число ',i,': '); Read(c);    if c<0 then s+=c    else      if c>0 then p*=c    end;  Writeln('Сумма отрицательных равна ',s);  Writeln('Произведение положительных равно ',p)end.Тестовое решение:Число 1: 3.5Число 2: -1.4Число 3: 0Число 4: 3.7Число 5: -2.11Сумма отрицательных равна -3.51Произведение положительных равно 12.95