Как решить задачу по информатике, в паскале???

var a,b,i,p:longint;
begin
write('Первое число -> '); readln(a);
write('Второе число ->: '); readln(b);
p:=1; for i:=a to b do p:=p*i);
writeln('Произведение всех чисел равно: ',p); readln
end.

P.S. Задачки у вас для третьеклассников.