ХЕЛП МИ ПЛИЗ
Люди, пожалуйста помогите
очень срочно нужно

var a: array[1..10] of Integer;i,s,d: Integer;beginfor i:=1 to 10 dobegina[i]:=Random(10-1+1)+1;writeln('Число: ',a[i]);end;for s:=1 to 10 dobeginif a[s] mod 2=0 then inc(a[s]);end;for d:=1 to 10 dobeginwriteln(a[d]);end;end.