Решить : найти произведение чисел от 0,5 до 5 для цикла с постусловием(шаг-05) напишите программу

Объяснение:

const a=0.5;b=5;h=0.5;

var x,p:real;

begin

x:=a;

p:=1;

repeat

p:=p*x;

x:=x+h;

until x>5;

writeln ('Произведение чисел от a=',a,' до b=',b, ' с шагом h=',h,' p=',p);

end.