Решение задачи 6 из главы 11

Решение задачи 6 из главы 11

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

program Project6;
var a, b, c: integer;
begin
  a:= 1;
  while (a < 15) do
  begin
      c:= b;
      b:= a;
      writeln('Vvedite zeloe chislo:');
      readln(a);
      if (a >= 15) then
      begin
         break;
      end
      else if ((a mod 2) = 0) then
           writeln(a, '+', c, '=', a + c )
           else
             writeln('Vvedite drugoe chislo.');
  end;
  writeln('Konez zikla!');
readln();
end.