[The Shadow]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function ChangeFirstChar(N: Integer): Integer;
begin
if StrToInt(IntToStr(N)[1]) mod 2 = 0 then
Result:=StrToInt(IntToStr(StrToInt(IntToStr(N)[1])*2) + Copy(IntToStr(N), 2, Length(IntToStr(N))))
else
Result:=N;
end;
procedure ChangeFirstChars(var AN: Array of Integer);
var
i: Integer;
begin
for i:=Low(AN) to High(AN) do
AN[i]:=ChangeFirstChar(AN[i])
end;

var
L, i: Integer;
AN: Array of Integer;
begin
Writeln('Введите размер массива');
Readln(L);
SetLength(AN, L);
Writeln('Введите элементы массива');
for i:=0 to L - 1 do
Readln(AN[i]);
ChangeFirstChars(AN);
Writeln('Результат');
for i:=0 to L - 1 do
Writeln(AN[i]);
Readln;
end.