var a,b:integer;
s,p,k:integer; //s сумма, p произведение, k кол-во
m:string; //Интервал
Begin
while (a = b) or (a > b) do Begin
writeln('Введите числа A,B (a < b; a != b)');
write('A = '); readln(a);
write('B = '); readln(b);
End;
p := 1; //Если p = 0 --> все последующие произведения = 0
for var i := a to b do Begin
inc(k);
p := p * i;
s := s + i;
m := m + i;
if(i <> b) then m := m + ',';
End;
writeln;
writeln('Интервал = [',m,']');
writeln('Сумма чисел (a..b) = ', s);
writeln('Произведение чисел (a..b) = ', p);
write('Кол-во чисел (a..b) = ', k);
End.