program dlb;
var
i,T,s,k : integer;
begin
i := 1;
writeln('Введите число T');
readln(T);
k := 0;
while i <>0 do
begin
readln(i);
if i > T then
s := s +i;
if i < 0 then
k := k + 1;
end;
write(s,',', k);
end.
####################################
program pd;
var
n,min,s,i,x: integer;
begin
min:= 10000000;
writeln('Введите число N');
readln(n);
for i := 1 to N do
begin
readln(x);
if x < min then
min := x;
if x > 0 then
s := s + x
end;
if s > 0 then
writeln(min,',', s)
else
begin
write('Положительных чисел нет в последовательности');
write(min);
end;
end.