урок 11 задача 2

урок 11

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

p

rogram Project1;
var a,b :integer ;

 begin
 a := 1;
 b := a;
 while  (a<=15) do
begin
writeln('ведите целое число');
readln(a);
writeln(a + b);
end;
writeln('пока!');
readln();

end.