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

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

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

var a: integer;    // в а будем записывать введенное число
begin
  while (a<=15) do  //пока а меньше или равно 15, будет выполняться цикл
  begin
    write('Введите число: '); //сообщение для пользователя
    readln (a); // считывание введенного числа
    writeln (a + 7); //выводим сразу сумму
  end;
  readln();
end. 

Вывод в консоли:

Введите число: 2
9
Введите число: 6
13
Введите число: 17
24