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

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

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

решение задачи

var a:integer;

begin
  while (a < 15) do
     begin
        writeln('vvedite zeloe chislo');
        readln(a);
        writeln('summa : ', a + 7);
     end;
      writeln('vvedenoe chislo a > 15 zikl zavershen');
   readln();
end.