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

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

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

var a:integer;
begin
 while (a<=15) do
   begin
     writeln('vvedite chislo');
     readln(a);
     writeln(a+7);
   end;
 writeln('vishli is cikla');
 readln();
end.
   
Вывод консоли:
vvedite chislo
5
12
vvedite chislo
12
19
vvedite chislo
15
22
vvedite chislo
17
24
vishli is cikla