const n=10;
var a:array[1..n,1..n] of real;
    fact,d, sum, k:real;
    i,j,c,b:integer;
begin;
fact:=1;
  for i:=1 to n do
    for j:=1 to n do
        begin
        b:=abs(i-j);
        for c:=1 to b do
          fact:=fact*c;
            if j mod 2=1 then d:=-1
            else d:=1;
        a[i,j]:=d*abs(i-j)*fact
        end;
sum:=0;
k:=0;
for i:=1 to n do
  for j:=1 to n do
    begin
    if (i=j) and (a[i,j]>0) then
    begin
    sum:=sum+a[i,j];
    k:=k+1;
    end;
    end;
 writeln('Kolichestvo polizhitelnih chisel=',k);
 writeln('Summa polozhitelnyh chisel=',sum);
 end.

Y29uc3Qgbj0xMDsKdmFyIGE6YXJyYXlbMS4ubiwxLi5uXSBvZiByZWFsOwogICAgZmFjdCxkLCBzdW0sIGs6cmVhbDsKICAgIGksaixjLGI6aW50ZWdlcjsKYmVnaW47CmZhY3Q6PTE7CiAgZm9yIGk6PTEgdG8gbiBkbwogICAgZm9yIGo6PTEgdG8gbiBkbwogICAgICAgIGJlZ2luCiAgICAgICAgYjo9YWJzKGktaik7CiAgICAgICAgZm9yIGM6PTEgdG8gYiBkbwogICAgICAgICAgZmFjdDo9ZmFjdCpjOwogICAgICAgICAgICBpZiBqIG1vZCAyPTEgdGhlbiBkOj0tMQogICAgICAgICAgICBlbHNlIGQ6PTE7CiAgICAgICAgYVtpLGpdOj1kKmFicyhpLWopKmZhY3QKICAgICAgICBlbmQ7CnN1bTo9MDsKazo9MDsKZm9yIGk6PTEgdG8gbiBkbwogIGZvciBqOj0xIHRvIG4gZG8KICAgIGJlZ2luCiAgICBpZiAoaT1qKSBhbmQgKGFbaSxqXT4wKSB0aGVuCiAgICBiZWdpbgogICAgc3VtOj1zdW0rYVtpLGpdOwogICAgazo9aysxOwogICAgZW5kOwogICAgZW5kOwogd3JpdGVsbignS29saWNoZXN0dm8gcG9saXpoaXRlbG5paCBjaGlzZWw9JyxrKTsKIHdyaXRlbG4oJ1N1bW1hIHBvbG96aGl0ZWxueWggY2hpc2VsPScsc3VtKTsKIGVuZC4=