Решение задачи 7 из главы 11

Решение задачи 7 из главы 11

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

- С использованием if и break:

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

- без if и break:

program Project1;
var a: integer;
begin
  a:= 1;
  while (a <> 22) do
  begin
      writeln('Vvedite zeloe chislo:');
      readln(a);
      writeln('#');
  end;
end.