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

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

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

var numb, promRes1, promRes2: integer;
begin
 numb:=1;
 promRes1:=1;
   while (numb <= 15) do
     begin
       promRes2:=promRes1;
       promRes1:=numb;
       write('vvedite chislo: '); readln(numb);
         if(numb mod 2 = 0) then
           writeln('result summa: ',numb+promRes2)
         else
           write('chislo ne chetnoe, ');
     end;
end.