Задача 2. Урок 11.

Задача 2. Урок 11.

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму.
Первое введенное пользователем число можно сложить с единицей.

var a, b: integer;
begin
  a := 1;

  while (a <= 15) do

  begin
    b := a;
    writeln('vvedite celoe chislo:');
    readln(a);
    if (a > 15) then
    break;
    writeln(b + a);
  end;

  writeln('Czikol zavershon');
  readln();

end.   

Консоль:

vvedite celoe chislo:
2
3
vvedite celoe chislo:
2
4
vvedite celoe chislo:
3
5
vvedite celoe chislo:
15
18
vvedite celoe chislo:
16
Czikol zavershon