Нарисуйте блок схему програми в паскаль Program if_4; Var a,b,c,k1:integer; Begin; Writeln('Введіть число'); Readln(a); Writeln('Введіть число'); Readln(b); Writeln('Введіть число'); Readln(c); If a больше 0 then k1:=k...

Нарисуйте блок схему програми в паскаль 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.