Задание. Составьте блок схему алгоритма решения задачи и программу на языке Turbo Pascal c использованием условного оператора.

Даны три целых числа.Найти кол-во положительных чисел в исходном наборе.

var  a,b,c,n:integer;beginreadln(a,b,c);if a>0 then n:=1;if b>0 then n:=n+1;if c>0 then n:=n+1;writeln('Количество положительных: ',n);readlnend.