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

11. While

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

var a: integer;
begin
  a:=1;
  while (a <> 22) do
    begin
      writeln('write integer num');
      readln(a);
      if (a<>22) then
         writeln('#')
    end;
end.

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

var a: integer;
begin
  a:=1;
  while (a <> 22) do
    begin
      writeln('write integer num');
      readln(a);
      if (a=22) then
        break
      else
        writeln('#')
    end;
end.