Пожалуйста посчитайте решить задачи 1,3,4( Паскаль 8 класс)

1)
const n=9;
var m:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
read(m[i]);

for i:=n to 1 do
write(m[i], ' ');

end.