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

Урок 11

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

var a: integer;

begin
  writeln('Vvedite celoe chislo');
  readln(a);

  while a = a do
  begin

    if a <> 22 then 
    begin
        writeln('#');
        writeln('Vvedite celoe chislo');
        readln(a);
    end
    
    else
      break;

  end;

end.

КОНСОЛЬ

Vvedite celoe chislo
2
#
Vvedite celoe chislo
22