Chắc dãy đấy là dãy số nguyên nhỉ
var s : array[1..1000] of integer;
d : array[1..1000] of integer;
e : array[1..1000] of integer;
f : array[1..1000] of integer;
a,i,i1,i2,i3,n: integer;
begin
i1 := 0;
i2 := 0;
i3 := 0;
Writeln('nhap so phan tu cua day: '); read(n)...