Pascal- как се въвеждат отрицателни числа + задача

[FlowerPower]

Как да заявя, че търся отрицателни числа в Паскал?
Давам задача, а после и моето решение, което не мога да докарам вярно

зад: Намери сумата и средното аритметично на отрицателните числа, кратни на 5.

моето реш.: *с 'br' означавам брой заради ср.аритметично


VAR S,A:integer;br:byte;
begin
A<0;write('A=');readln(A);br:=1; това А<0 тук e грешно, но нямам идея
while A mod 5=0 do
begin
S:=S+A
write('A=');readln(A);
br:=br+1:
end;
writeln('sum=',S);
writeln(''aver=',S/br:4:1);
end.