Даны два целых числа A и B (A > B). Найти произведение всех целых чисел от A до B включительно — Pascal(Паскаль)

program test;
    var A, B, i, S: integer;
begin
    read(A, B);
    S := 1;
    for i := A to B 
        do S := S * i;
    write( 'Произведение - ', S);
end.