uses crt;
var a: array[1..4] of integer;
i,min,max,dl,dc: integer;
tbc: real;
begin
clrscr;
for i:=1 to 4 do
begin
write ('nhap phan tu thu ',i,': '); readln (a[i]);
if a[i] mod 2=0 then dc:=dc+1;
if a[i] mod 2<>0 then dl:=dl+1;
if a[i]>max then max:=a[i];
tbc:=tbc+a[i];
end;
tbc:=tbc/4;
min:=a[1];
for i:=2 to 4 do
if a[i]<min then min:=a[i];
writeln ('trung binh cong cua day so nguyen tren la: ',tbc:1:2);
write ('cac so le trong day: ');
for i:=1 to 4 do if a[i] mod 2<>0 then write (a[i],' ');
writeln;
write ('cac so chan trong day: ');
for i:=1 to 4 do if a[i] mod 2=0 then write (a[i],' ');
writeln;
writeln ('so lon nhat: ',max);
writeln ('so be nhat: ',min);
writeln ('trong mang so ',dl,' phan tu le');
writeln ('trong mang so ',dc,' phan tu chan');
readln;
end.