Определить значения переменных S1, которое получается в результате выполнения следующего алгоритма при a=1 и b=3

в результате выполнения программы по данному алгоритму, получится 8var s1,s2,a,b: integer; i: integer;begin  s1:=0;  s2:=0;  a:=1;  b:=3;  for i:=a to b do begin    if i mod 2=0 then      s2:=s2+i*i    else      s1:=s1+i;  end;  s1:=s1+s2;  writeln(s1);end.