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

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

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

var i: integer;
begin
  i := 1;
  while(i < 15) do
      begin
      writeln('vvedi celoe chislo:');
      readln(i);
      if(i < 15) then
      writeln(i + 7)
      end;
  writeln('bb');
  readln();
end.