Program if_4-
Var a,b,c,k1:integer-
Begin
Writeln(‘Введите число’)-
Readln(a)-
Writeln(‘Введите число’)-
Readln(b)-
Writeln(‘Введите число’)-
Readln(c)-
k1:=0-
If a>-0 then k1:=k1+1-
If b>-0 then k1:=k1+1-
If c>-0 then k1:=k1+1-
Writeln(‘Количество положительных чисел ‘,k1)-
Readln-
End.