Для трёх данных чисел a,b,c отыскать среднее арифметическое положительных из их.

var a,b,c,s,k:integer;
begin
readln(a,b,c);
if agt;0 then
begin
k:=k+1;
s:=s+a;
end;
if bgt;0 then
begin
k:=k+1;
s:=s+b;
end;
if cgt;0 then
begin
k:=k+1;
s:=s+c;
end;
if k=0 then writeln('нет положительных чисел')
else writeln(s/k);
end.

uses crt;
var a,b,c,cc,s:integer;
begin
cc:=0;
readln(a);
if agt;0 then begin s:=a; inc(cc); end;
readln(b);
if bgt;0 then begin s:=s+b; inc(cc); end;
readln(c);
if cgt;0 then begin s:=s+c; inc(cc); end;

writeln(s/cc);
readln;

end.