Viết chương trình nhập vào 1 dãy số nguyên bất kì, hiển thị dãy số vừa nhập- yêu cầu kết hợp lệnh if và fortest chương trình

viết chương trình:
-nhập vào 1 dãy số nguyên bất kì
-hiển thị dãy số vừa nhập
- yêu cầu kết hợp lệnh if và for
test chương trình:
       i:=1,k:=3
for   j:=1 to 10 do
       k:=k+j*2;
       i:=i+k If k mod i:=0 then
       k:=k*i else k:=k/i;
 => k=?