Урок 11 Задание 1

Задание 1 Урок 11

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

program Project1;
var a: integer;
begin
  a := 1; 
  while (a <= 15) do 
  begin
    writeln('vvedite celoe chislo:'); 
    readln(a);   
    writeln(a + 7); 
  end;
  writeln('Poka!'); 
  readln(); 
end.   

Консоль:

vvedite celoe chislo:
5
12
vvedite celoe chislo:
7
14
vvedite celoe chislo:
19
26
Poka!