Найдите произведение целых чисел от а до в, где а и в водиться с клавиатуры

Pascal

program dz;

var a,b: integer;

begin

writeln('Введите a: ');

read(a);

writeln('Введите b: ');

read(b);

writeln('Произведение a и b: ', a*b);

     end.