Diziler_Downto

program diziler;

Var i,j: integer;
dizi:ARRAY[0..7] of integer;
a: integer;

begin

for i := 0 to 7 do

begin
dizi[i] := i*10;
end;

for j:= 0 to 7 do
writeln(dizi[j]:6);

for j:= 7 downto 0 do
writeln(dizi[j]:6);




readln;
end.