Question

ввести несколько чисел. найти сумму чисел лежащих в интервале от 10 до 15

Answer 1

var

  tmp, sum : integer;

begin

  sum := 0;  

  while not eoln do

  begin

    read (tmp);

    if (tmp >= 10) and (tmp <= 15) then

      sum := sum + tmp;

  end;

  writeln (sum);

end.