Помогите решить задачу...

Помогите решить задачу в системе паскаля, фото задачи по ссылкеhttp://cs309224.vk.me/v309224156/5a57/fT3rlMe9o9k.jpg

 

Program Mul;
Uses Crt;
var a,b:integer;
       m:longint;  
begin
     clrscr;
     m:=1;
      write('Введите число а: '); 
 
      readln(a);
      write('Введите число b<a: '); 
      readln(b);
      for i:=a to b do m:=m*i;
 
      writeln('Произведение всех чисел от a до b: ',m);
      readkey;
 
end.