1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

uses crt;

var

a:array[1..100]of integer;

i,n:integer;

begin

writeln('skolko elementov?');

readln(n);

randomize;

for i:=1 to n do begin

a[i]:=random(100);

write(a[i]:3);

end;

writeln;

for i:=n downto 1 do

write(a[i]:3);

end.