Ответы и объяснения

2013-10-08T21:42:14+04:00
Var a:array [1..10] of integer;
begin
  for i:=1 to 10 do
   begin
    a[i]:=i;
    write (a[i]:3);
   end;
  writeln;
  for i:=10 downto 1 do write (a[i]:3);
  writeln;
end.