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

Первый вариант выполнения программы:Const n=10;Var A:array[1..n] of integer;i:integer;Beginwriteln(\'Введите \',n,\' чисел\');For i:=1 to n doread(A[i]);writeln(\'Преобразованный массив\');For i:=1 to n doBeginif A[i] < 0 then A[i] := abs(A[i]);write(A[i],\' \');End;End.Второй вариант выполнения программы:Var A:array[1..10] of integer;i:integer;begin for i:=1 to 10dobeginreadln(a[i]);if a[i]<0then a[i]:=abs(a[i]);end;for i:=1 to 10dowriteln(a[i]);end.