1)найти произведение из диапазона от a до b с шагом h 2)для заданого натурального n и действительного x подсчитайте сумму s=1^2+2^2+3^2++n^2 только с использованием while do или repeat until

Begin
var a:= readinteger('Введите А :');
var b:= readinteger('Введите В :');
var h:= readinteger('Введите шаг h :');
var mul: longint = 1;
for var i:= a to b do
if (i mod h = 0) then
mul:=i*mul;
write(mul);
end.

begin
var n:= readreal('Введите n:');
var S: real = 0;
repeat
if n<0 then
break;
S:=S+power(n,2);
n:=n-1;
until (n<0);
write(S);
end.