Даны два числа А и В (А<В) . Найти произведение всех целых чисел от А до В включительно. For

Program abc;
var a,b,c,i,i1:integer;
begin
readln(a,b);
if(afor i:=1 to b do
begin
i1:=i+1;
c:=i1+i;
end;
if(a>b) then
for i:=1 to a do
begin
i1:=i+1;
c:=i1+i;
end;
writeln(c);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.