Нарисуйте блок схему програми в паскаль program if_4; var a,b,c,k1: integer; begin; writeln('введіть число'); readln(a); writeln('введіть число'); readln(b); writeln('введіть число'); readln(c); 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.
