Задание 6 Урок 11

Задание 6 Урок 11

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

var i,i1,i2 : integer;
begin
    i := 0;
    i1 := 0;
    i2 := 0;
    while (i <= 15) do
    begin
      write('Введите целое число и нажмите ENTER:');
      i1 := i;
      i2 := i1;
      readln(i);
      if ((i mod 2) = 0) then
      	 writeln('Сумма предыдущего и введённого значений равна: ', i2 + i)
    end;
    write('Цикл завершён, нажмите ENTER');
    readln();
end.