2. решить (программа): а) найти сумму чисел в диапазоне от 10 до 30 б) найти произведение чисел в диапазоне от 10 до 15 в) найти сумму четных чисел в диапазоне от 10 до 30

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