uses crt;

var a: array[1..100] of integer;

var i,n,s: byte;

begin

clrscr;

write ('nhap n: ');  readln(n);

for i:=1 to n do

begin

write ('nhap pt thu ',i,': ');  readln (a[i]);

s:=s+a[i];

end;

write ('Mang vua nhap: '); 

for i:=1 to n-1 do write (a[i]:4);

writeln (a[n]);

writeln ('Tong cac so vua nhap: ',s);

write ('Cac so chan chia het cho 5: ');

for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then write (a[i]:4);

readln;

end.

$#Trumtinhoc$

uses crt;

var B : array [1 .. 100] of integer;

i, n, Sum : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

for i := 1 to n do

    begin

        write('Nhap so thu ', i ,' : ');

        read(B[i]);

        Sum := Sum + B[i];

    end;

write('Cac so vua nhap : ');

for i := 1 to n do write(B[i],' ');

writeln; writeln('Tong cac so vua nhap : ', Sum);

write('Cac so chia het cho 3 va 5 : ');

for i := 1 to n do

if (B[i] mod 3 = 0) and (B[i] mod 5 = 0) then

write(B[i],' ');

readln

end.