Program if_4-

Var a,b,c,k1:integer-

Begin

Writeln(‘Введите число’)-

Readln(a)-

Writeln(‘Введите число’)-

Readln(b)-

Writeln(‘Введите число’)-

Readln(c)-

k1:=0-

If a&gt-0 then k1:=k1+1-

If b&gt-0 then k1:=k1+1-

If c&gt-0 then k1:=k1+1-

Writeln(‘Количество положительных чисел ‘,k1)-

Readln-

End.