Решение задачи №1 из главы 11

Задача №1 из главы 11

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

var i:integer;
begin
  i:=1; // начинаем цикл
  while (i < 15) do //проверяем условие цикла
  begin
    writeln('Vvedite cislo');
    readln(i);//считываем его из потока ввода
    writeln(i+7); // выводим результат если
  end;
   writeln('Cikl zaverhen'); //завершаем цикл (i < 15)
   readln();
end.