Найдите произведение чисел из диапазона от a до b с шагом h

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.