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

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

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

var c, a: integer;

begin
  a:=1;
  while (c <= 15) do
  begin
    writeln('vvedite chislo: ');
    readln(c);
      if ((c mod 2)=0)and(c <= 15) then
      begin
        writeln(a+c);
      end;
    a:=c;

  end;
  writeln('<<konec>>');

  readln();

end.