Вывести 2 числа (целые) , найти сумму и произведение всех чисел между ними, причем…

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