2. Решить задачи (программа):
а) Найти сумму чисел в диапазоне от 10 до 30
б) Найти произведение чисел в диапазоне от 10 до 15
в) Найти сумму ЧЕТНЫХ чисел в диапазоне от 10 до 30

в)var i,p:integer;begini:=10;p:=0;while i<=30 do begin  p:=p+i;  i:=i+2; end;write('P= ',p);   readln;end.б) var i,p:integer;begini:=15;p:=1;while i<=30 do begin  p:=p*i;  i:=i+1; end;write('P= ',p);   readln;end.а)  var i,p:integer;begini:=10;p:=0;while i<=30 do begin  p:=p+i;  i:=i+1; end;write('P= ',p);   readln;end.