Составить программу для посчёта количества неотрицательных среди чисел a.b.c.)помогите пожалуйста срочно надо,,,*

Var
a,b,c:integer;
max,min,i:real;
begin
max:=0;
min:=0;
writeln (A --> );
readln (a);
writeln (B --> );
readln (b);
writeln (C --> );
readln (c);
if a>0 then max:=max+1;
if aif b>0 then max:=max+1;
if bif c>0 then max:=max+1;
if cwriteln;
writeln (Количество положительных --> ,max);
writeln (Количество отрицательных --> ,min);
end.