Укажите названия элементов WordPad (Ворда)

1.Program arrays;const n = 15;Var a:array [1..n] of integer;    i:integer;begin  for i:=1 to n do a[i]:= random(-20, 20);  for i:=1 to n do  begin    if a[i] mod 2 = 0 then      a[i]:=sqr(a[i]);  end;  for i:= 1 to n do write(a[i], );end.2.Program arrayss;const n = 10;Var a:array [1..n] of integer;    i:integer;begin  for i:=1 to n do read(a[i]);  swap(a[1], a[10]);  for i:= 1 to n do write(a[i], );end.

Нажми на клавишу Enter

2 ) 900 мрчшрпмошзсзрг хшросххршсгсшр0сщ