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

Question

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

---

Answer 1

N2

var i,k:integer;
A: array [0..6] of integer;
begin
for i:=0 to 6 do
begin
readln (A[i]);
end;
 for i:=0 to 6 do 
writeln( A[i]); 
end.