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

beginvar a:= readinteger('Введите А :');var b:= readinteger('Введите В :');var h:= readinteger('Введите шаг h :');var mul: longint = 1;for var i:= a to b doif (i mod h = 0) thenmul:=i*mul;write(mul);end.beginvar n:= readreal('Введите n:');var S: real = 0;repeatif n<0 thenbreak;S:=S+power(n,2);n:=n-1;until (n<0);write(S);end.