Ввести одномерный массив из 9-ти элементов. увеличить вдвое значение каждого положительного элемента, отрицательные элементы заменить нулём. напечатать исходный и изменённый массив. язык паскаль

Var a: array[1..9] of integer; i: integer; begin   randomize;   for i: =1 to 9 do begin       a[i]: =random(-10,10);       if a[i] > 0 then a[i]: =sqr(a[i]) else a[i]: =0;       writeln(a[i]);   end; end.

b) 9 лет

2020=4

2011=4 

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.