Pascal Урок 11 Задача 7 Решение

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

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

program U11Z7H1;
var a:integer;
begin
  while(a<>22)do
    begin
      writeln('vvedite chislo');
      readln(a);
      if(a<>22)then
        writeln('#');
    end;
  writeln();
end.               

program U11Z7H2;
var a:integer;
begin
  while (a <> 22) do
    begin
      writeln('vvedite chislo');
      readln(a);
      if(a = 22)then break;
      writeln('#');
    end;
  writeln();
end.