Задача 6 Урок 11

Задача 6 Урок 11

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

var a,b,i:integer;

begin
  while (i < 15) do
     begin
        a := b;
        b := i;
        writeln('vvedite zeloe chislo');
        readln(i);
        if i mod 2 = 0 then
          writeln('summa : ', a, '+', i,'=', a + i)
     end;
       writeln('vvedenoe chislo i > 15 zikl zavershen');
  readln();
end

.