С клавиатуры вводятся 3 числа. сколько среди них положительных?

Нужно решать либо с if или с case

Program q;

var mult, a, b, c:integer;

begin

write ('введите 3 числа') ;

read (a, b, c) ;

mult:=0;

if a>0 then

mult:=mult+1

else mult:=mult;

end;

if b>0 then

mult:=mult+1

else mult:=mult;

if c>0 then

mult"=mult+1

else mult:=mult;

end;

writeln ('положительных ', mult, ' чисел') ;

end.