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

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

program task6_lesson11;
var i,p1: integer;
  begin
    writeln('Enter even integer smaller then 15 :');
    readln(i);
    p1:=1;
    while i<=15 do
          begin
            if ((i mod 2) = 0) then
               begin
                writeln(i+p1);
                p1:=i
               end
            else
                writeln('Enter even number');
            readln(i);
          end;
  end.