Составьте программу,которая заполняет массив а[1..12] случайными целыми числами в диапазоне от 1 до 11,затем преобразовывает

Составим программу на языке программирования PascalПервый вариант:Program Program1;vara:array [1..12] of integer;i:integer;beginrandomize;Writeln(\'Исходный массив: \');for i:=1 to 11 dobegina[i]:=random(11)+1;writeln(\'a[\',i,\']=\',a[i]);end;for i:=1 to 10 doif i mod 2 = 0 then a[i]:=sqr(a[i]);Writeln(\'Преобразованный массив: \');for i:=1 to 11 dowriteln(\'a[\',i,\']=\',a[i]);end.Второй вариант:Var ar:array[1..12] of integer;i:integer;begin;randomize;writeln(Main array:);for i:=1 to 12 dobegin;ar[i]:=random(1,11);writeln(ar[i]);end;writeln(Changed array:);for i:=1 to 12 dobegin;if ar[i] mod 2=0 then ar[i]:=sqr(ar[i]);writeln(ar[i]);end;end.