Сделайте в паскаль.

Дан массив вещественных чисел. Вывести на экран новое состояние массива, в котором: a) Каждый отрицательный элемент заменить на его абсолютную величину; b) Все элементы с нечетными номерами заменить на их квадратный корень; c) Из всех положительных элементов вычесть элемент с номером К1, из остальных К2.

Var A:array [-10..999] of real;b,c,i:integer;v:real;beginwrite('Введите число K1');read(b);Write('Введите число k2');read(c);for i:=-10 to 10 doa[i]:=i;for i:=-10 to 10 do beginv:=a[i];if v >0 then a[i]:=a[i]*a[i];if a[i]<0 then a[i]:=a[i]*-1;if a[i]>=0 then a[i]:=a[i]-b else a[i]:=a[i]-c;end;end.