[PASCAL] Esercizio: albero binario in un vettore

[yagami1992]

Devo fare un albero binario in vettore come nella foto. devo fare 2 procedure 1:leggi i numeri e 2:scriva i numeri. vi prego ditemi se l`ho fatto bene.

--------------------------------

program stringa;
const n=5;
Type albero= array [1..n] of integer;
var A:albero;
procedure leggi;
var i:integer;
begin
for i:=1 to n do
readln(A[i]);
end;
procedure scrivi;
var i:integer;
begin
for i:=1 to n do
write(' ',A[i]);
end;
begin
Leggi;
scrivi;
readln;
end.


-------------------------