Const Fi='SO.INP';
      Fo='SOL.OUT';
Var f,g: text;
    A: array[1..10000] of longint;
    n,i,s: longint;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Readln(f,n);
        For i:=1 to n do Readln(f,A[i]);
        For i:=1 to n do
        Begin
                If A[i]<0 then Write(A[i],' ');
                If A[i] mod 15 = 0 then s:=s+A[i];
        End;
        Write(g,s);
        Close(f);
        Close(g);
End.

Bài 1:

program bai_giai;
uses crt;
var f,g:text;
    n,t:longint;
begin
    clrscr;
    Assign(f,'SO.INP');  reset(F);
    Assign(g,'SO.OUT');  rewrite(g);
    t:=0;
    while not eof(f) do
        begin
            readln(f,n);
            if n<0 then write(n,' ');
            if (n mod 3=0) and (n mod 5=0) then t:=t+n;
        end;
    write(g,t);
    close(f); close(g);
    readln;
end.

Bài 2:

program bai_giai;
uses crt;
var f,g:text;
    n,d:longint;
begin
    clrscr;
    Assign(f,'BAITAP.INP');  reset(F);
    Assign(g,'SKQ.OUT');  rewrite(g);
    d:=0;
    while not eof(f) do
        begin
            read(f,n);
            if n mod 5=0 then d:=d+1;
            if sqrt(n)=trunc(sqrt(n)) then write(g,n,' ');
        end;
    write(d);
    close(f); close(g);
    readln;
end.