Дан целочисленный массив размера N. Преобразовать его прибавив к нечетным числам последний элемент. Последний элемент массива не изменять. Pascal

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016begin  var n:=ReadInteger('n=');  var a:=ArrRandom(n,10,49); a.Println;  var last:=a[n-1];  for var i:=0 to n-2 do    if Odd(a[i]) then a[i]+=last;  a.Printlnend.Тестовое решение:n= 1517 45 34 38 40 30 31 18 30 46 27 39 32 37 3047 75 34 38 40 30 61 18 30 46 57 69 32 67 30