#include <bits/stdc++.h>
using namespace std;
int main()
{
    int n,i;
    int so_so_hang = 0;
    int Tong = 0;
    int A[1000];
    cin>>n;
    for(i=0;i<n;i++){
            cin>>A[i];
    }
    for(i=0;i<n;i++){
        if(A[i]<0){
            so_so_hang++;
        }
    }
    cout<<so_so_hang<<"\n";
    for(i=0;i<n;i++){
        if(A[i]>3){
            Tong = Tong + A[i];
        }
    }
    cout<<Tong;
}

Code:

uses crt;
var a:array[1..100] of integer;
    i,n,d:byte;
    s:integer;
begin
 clrscr;d:=0; s:=0;
 readln(n);
 for i:=1 to n do
 readln(a[i]);
 for i:=1 to n do
 begin
 if (a[i]<0) then d:=d+1;
 if (a[i]>3) then s:=s+a[i];
 end;
 writeln('a.',d);
 writeln('b.',s);
 readln
end.