program task1; const n = 10; var i :integer; a :array [1..n] of integer; begin for i:= 1 to n do readln(a[i]); for i:= n downto 1 do write(a[i]:4); end. -------------------------------- program task2; var a, b, i :integer; begin readln(a,b); for i:= a to b do write(i,' '); end.