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

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

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

program U11Z2;
var s, a:integer;
begin
     s:=1;
     while (s<=15) do
     begin
          a:=s;
          writeln('vvedite celoe chislo:');
          readln(s);
          if (s>15)then
             break
          else
             writeln(s+a);
     end;
     writeln('poka!');
     readln();
end.