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

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

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

//1
var a : integer;
    x : boolean;

begin
  x := true;
  while (x) do
    begin
      write('Enter an integer : ');
      readln(a);
      if (a <> 22) then
        writeln('#')
      else
        x := false;
    end;
  readln();
end. 

//2
var a : integer;
    x : boolean;

begin
  while (true) do
    begin
      write('Enter an integer : ');
      readln(a);
      if (a = 22) then
        break
      else
        writeln('#');
    end;
  readln();
end.