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

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

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

способ 1:

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

способ 2:

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