Помогите пожалуйста, очень срочно, 4 задание (информатика)

Язык Pascal, работа на массиве. с заполнением с клавиатуры. Ты заполняешь 9 элементов ( через enter ), а он тебе выводит тоже самое, только с противоположными знакамиVar x: array[1..9] of integer;Var i,h:integer;Beginfor i:= 1 to 9 doBegin;Readln(h);x[i] := -1*h;end;for i:=1 to 9 doBegin;Writeln('Элемент номер ',i,' массива: ',x[i]);end;readln(x);end.