Помогите пожалуйста составить программы,мне очень нужно к завтра ,зад 2,3,4...)))

N2var i,k:integer;A: array [0..6] of integer;beginfor i:=0 to 6 dobeginreadln (A[i]);end; for i:=0 to 6 do writeln( A[i]); end.