Паскаль!! дам 20 баллов

Из диапазона [a,b] получить сумму положительных чисел и подсчитать количество отрицательных чисел.

Var a,b,c,d,i:integer;

begin

read (a,b);

c:=0;

d:=0;

For i:=a to b do begin

If i<0 then c:=c+1 else d:=d+i;

end;

Writeln (c);

Writeln (d);

end.