var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.
Не носится по кабинету, а то снесешь комп и заставят платить)
1 Кб = 1024 байта = 8192 бита
1 Мб = 1024 Кб = 1048576 байта = 8388608 битов
1 Гб = 1024 Мб = 1048576 Кб = 1073741824 байт = 8589934592 бит
Var j,i:longint;
begin
for i:=2 to 3628800 begin
for j:=2 to 3628800 do writeln(i*j:10);writeln();
end;
readln;
end<span>.</span>