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

http://fkn.ktu10.com/?q=node/7341

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

var i: integer;
begin
     i := 1;

     while i <= 15 do
     begin
          writeln('Enter an integer: ');
          readln(i); // пользователь вводит целое число
          writeln(i + 7); // выводим пользователю очередной ответ
     end;

     writeln('End i > 15');
     readln();

end.