Найти сумму ряда чисел от 1 до 10, используя циклы: с предусловием (пока истина), с постусловием (до тех пор, пока ложь) и с параметром. При решении задания применить оператор выбора варианта Select Case. в VBA

 Есть сомнения в том первый элемент массива это 0.5 или же это 2 элемента 0 и 5  и тогда объявление массивов будет следующим var a:array[1..9] of integer=( 0,5,12,-18,16,13,5,8,0 );  b: array[1..9] of real;  

Program massiv;

Uses Crt;

var a:array[1..8] of real =(0.5,12,-18,16,13,5,8,0);

       b: array[1..8] of real; 

       sum:real

       i:integer;

begin

     clrscr;

     write('Массив B: ');

     sum:=0; 

     for i:=1 to 8 do 

         begin     

              b[i]:=a[i]/2;  

              sum:=sum+a[i]+b[i]; 

              write(b[i]:2:2);

        end; 

  writeln;

  writeln('Сумма элементов массивов а и b: ',sum);

   writeln(' Первый элемент массива а : ',a[1]:2:2);

    writeln(' Первый элемент массива b : ',b[1]:2:2); 

    readkey;

end. 

Program chisla;

Uses crt; 

var a,b:real;

begin

     clrscr;

       write('введите число а:  ');

       readln(a); 

       write('введите число b:  ');

       readln(b); 

      if (a=b) then writeln('Числа равны'); 

       if (a>b) then 

             begin  

                 a:=a+3;              

                 b:=b-5;   

             end   

     else          

              begin  

                 b:=b+3;              

                 a:=a-5;   

              end

  writeln('a= ',a);

   writeln('b= ',b); 

    readkey;

end.