урок 11 задача 1

урок 11\

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

program Project1;
var a :integer ;

 begin
 a := 1;

 while  (a<=15) do
begin
writeln('ведите целое число');
readln(a);
writeln(a + 7);
end;
writeln('пока!');
readln();

end.