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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.