uses crt;

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

i, n : integer;

begin

clrscr;

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

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do read(B[i]);

write('Cac so vua nhap : ');

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

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

for i := 1 to n do

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

write(B[i],' ');

readln

end.

uses crt;

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

var i,n: byte;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

write ('Mang vua nhap: '); 

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

writeln (a[n]);

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

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

readln;

end.