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

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

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

С использованием if()

program U11z7a;
var
  a: integer;

begin
  a:=1;
  while (a<>22) do
      begin
        writeln('Vvedite cislo');
        readln(a);
            if (a <> 22) then
                writeln('#');

      end;
  write('end');
  readln();

end.

С использованием break;

program U11z7b;
var
  a: integer;

begin
  a:=1;
  while (a<>22) do
      begin
        writeln('Vvedite cislo');
        readln(a);
            if (a = 22) then break;
                writeln('#');

      end;
                 write('end');
  readln();

end.