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

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

Пользователь вводит целые числа, в ответ выводите символ #.
Если введенное пользователем число равно 22, то завершите цикл
не выводя ничего в ответ. Решите эту задачу 2-мя способами:
С использованием if()
С использованием if() и break;

решение 1

var i:integer;

begin
      while (i <> 22) do
          begin
              writeln('vvedite chislo');
              readln(i);
              if (i <> 22) then
                 writeln('#');
         end;
       readln();
end.

________________________________________________________________________________

решение 2

var i:integer;

begin
     while (i <> 22) do
          begin
              writeln('vvedite chislo');
              readln(i);
              if (i = 22) then
                 break;
                 writeln('#');
         end;
     readln();
end.