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

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

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

// с if без break
var a: integer;
begin
  while (a <> 22) do // не заходим на новый виток, если введенное число было 22
  begin
    write ('Введите число: ');
    readln(a);
    if (a <> 22) then // проверка введенного числаа на равенство 22
      writeln('#');
  end;
  readln();
end. 

// с if и break
var a: integer;
begin
  while (a=a) do // делаем бесконечный цикл
  begin
    write ('Ведите число: ');
    readln(a); 
    if (a = 22) then // проверка введенного числаа на равенство 22 
      break; // если равно 22, то прерываем цикл
    writeln('#');
  end;
  readln();
end.

Вывод в констоли:

Ведите число: 43
#
Ведите число: 54
#
Ведите число: 2
#
Ведите число: 22