Составьте блок схему алгоритма решения и программу на языке turbo pascal c использованием условного оператора. даны три целых числа.найти кол-во положительных чисел в исходном наборе.

var  a,b,c,n:integer;
begin
readln(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);
readln
end.