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

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

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

var i,x: integer;
begin
  i:=1;
  while i<=15 do
   begin
      x:=i;
      writeln ('vvedite celoe chislo');
      readln(i);
      if i<=15 then
      writeln (i+x)
      else writeln ('davai dosvidaniya');
   end;
readln();
end.