С клавиатуры вводятся 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.