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