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

http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

program task1_lesson11;
var i:integer;
  begin
       i:=1;
       while i<=15 do
       begin
            writeln('Enter integers');
            readln(i);
            writeln(i+7);
       end;
  readln()
  end.