//Cú pháp:
//for (<giá trị khới tạo>; <điều kiện>; <bước nhảy>) <khối lệnh>
//Hoạt động:
/**
   * <giá trị khởi tạo> tạo ra một biến đếm
   * Vòng lặp sẽ thực thi khi <điều kiện> đúng, kết thúc khi <điêu kiện> sai
   * Cứ mỗi lần lặp thì <bước nhảy> sẽ thay đổi <giá trị khởi tạo>

uses crt;

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

i,n: integer;

function ts(n: integer): integer;

var k,s: integer;

begin

k:=0;

while n<>0 do

begin

k:=n mod 10;

s:=s+k;

n:=n div 10;

end;

ts:=s;

end;

begin

clrscr;

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

fori i:=1 to n do

begin

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

end;

writeln;

for i:=1 to n do 

if (ts(a[i])=5) and (a[i] mod 2=0) then write (a[i]:4);

readln;

end.