Паскаль. вводится 3 числа, лежащих от -100 до 100. найти их сумму и количество отрицательных.

Var
 a,f,s,i:longint;
begin
        for i:=1 to 3 do
begin
        readln(a);
        inc(s,a);
        if (a<0) then inc(f);
end;
        writeln(s);
        writeln(f);
end.