Найти сумму элементов массива B[10]
Напишите программу на паскале!!!плиз....

program summa;uses crt;const N =10;var B:array[1..N] of integer;        s,i : integer;begins:=0;for i:=1 to N dobegin  write( 'B[ ' ,i, ']= ' );  readln(B[i]);s:=s+B[i];end;writeln( 's=' ,s);end.