Урок 11 Задание 6

Задание 6 Урок 11

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

program Project1;
var a, b, c : integer;
begin
a:=1; 
b:=1; 
while (c<= 15) do
begin
  writeln('vvedite celoe chislo:'); 
  readln(c); 
  if (c <= 15) then
  begin
    if (c mod 2 = 0) then
    writeln (c, ' + ', b , ' = ',  c + b) 
  end else
  break;
  b:=a;
  a:=c;
  end;
  writeln('Poka!');
  readln();
end.  

Консоль:

vvedite celoe chislo:
2
2 + 1 = 3
vvedite celoe chislo:
5
vvedite celoe chislo:
7
vvedite celoe chislo:
3
vvedite celoe chislo:
5
vvedite celoe chislo:
6
6 + 3 = 9
vvedite celoe chislo:
3
vvedite celoe chislo:
4
4 + 6 = 10
vvedite celoe chislo:
2
2 + 3 = 5
vvedite celoe chislo:
19
Poka!