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

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

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

var i, a: integer;

begin
  a:=1;
  while (i<=15) do
  begin
    writeln('vvedite chislo: ');
    readln(i);
    if (i<15) then
      begin
        a:=a+i;
        writeln(a);
      end;
  end;
  writeln('<<konec>>');

  readln();

end.