найти произведение чисел от 1 до 5 с шагом 0,5.
Составить программу по этой блок схеме.
Пожалуйста,помогите :)

спасибо :)))

Program BS;var P,X:Real;BeginP:=1;X:=1;While X<=5 dobeginX:=X+0.5;P:=P*X;End;Writeln(P);end.