Question

с клавиатуры вводится 3 числа. найти сумму чисел от 2 до 3. вывести на экран.

Answer 1

var

  a, b, c, i, sum : integer;

begin

  read (a, b, c);

  sum := 0; 

  for i := b to c do inc (sum, i);

  writeln (sum);

end.