ответ на 3 задание:
var
a,b,c,i:integer;
begin
writeln('Введите 3 числа');
readln(a,b,c);
if a>0 then i:=i+1;
if b>0 then i:=i+1;
if c>0 then i:=i+1;
writeln('Положительных чисел: '+i);
end.
