Deskripsi untuk soal nomor 41 - 42

var
 Q : array[1..15] of integer = (1,5,2,3,4,6,2,7,3,4,6,0,-1,2,3);
 P : array[0..15] of integer;
 i, a, b,total : integer;
begin
 P[0] := 0;
 for i := 1 to 15 do begin
 P[i] := P[i-1] + Q[i];
 end;

 readln (a,b);
 total := 0; // baris-1
 for i := a to b do begin // baris-2
 total := total + Q[i]; // baris-3
 end; // baris-4
 writeln(total);
end.