Составить программу нахождения произведения чисел от m до

program z1;

var m,n,i: integer;

p:real;

begin

writeln('Введите два числа m и n (m < n)');

write ('m = ');

readln (m);

write ('n = ');

readln (n);

p:=1;

for i := m to n do p:=p*i;

writeln (p,' произведение чисел от ',m,' до ',n)

end.