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

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

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

var a,b,c:integer;
begin
 a:=1;
 b:=1;
 c:=1;
 while (a<=15) do
   begin
     writeln('vvedite chislo');
     readln(a);
     if ((a mod 2)=0) then
       begin
         writeln(a+b+c);
         c:=b;
         b:=a;
       end;
    end;
 writeln('vishli is cikla !');
 readln();
end.



Вывод консоли:
vvedite chislo
3
vvedite chislo
1
vvedite chislo
4
6
vvedite chislo
3
vvedite chislo
6
11
vvedite chislo
8
18
vvedite chislo
16
30
vishli is cikla !