Дан массив "b" содержащий 10 целых чисел. b[1]=2 b[2]=1 b[3]=3 b[4]=5 b[5]=4 b[6]=9 b[7]=7 b[8]=8 b[9]=12 b[10]=10 напишите программу (pascal), которая вычисляет сумму значения всех элементов массива и выводит ее на монитор.

Бон аппетит

uses crt;

var B:array[1..10]of integer;

   s:string;

   i,sum:integer;

begin

B[1]:=2;

B[2]:=1;

B[3]:=3;

B[4]:=5;

B[5]:=4;

B[6]:=9;

B[7]:=7;

B[8]:=8;

B[9]:=12;

B[10]:=10;

 For i:=1 to 10 do

  Sum:=sum+b[i];

write(sum);

writeln('He didnt do this job.');

end.