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

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

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

var a: integer;
begin
  a := 0;
  {
  while (a <> 22) do
    begin
        write('Введите целое число: ');
        readln(a);
        if (a <> 22) then
            writeln('#');
    end;
   }
  while (a <> 22) do
    begin
        write('Введите целое число: ');
        readln(a);
        if (a = 22) then
            break;
        writeln('#');
    end;

  writeln('-----');
  writeln('Пока!');
  readln();
end.  

Консоль:

Введите целое число: 2
#
Введите целое число: 23
#
Введите целое число: -32
#
Введите целое число: 22
-----
Пока!