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

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

С использованием if()
С использованием if() и break;

var a:integer;
begin
  a:=1;
  while a<>22 do
    begin
      writeln('Vvedite celoe chislo: ');
      readln(a);

      if(a=22) then break  //проверка, чтобы не готять один круг цикла
      else
        begin
          writeln('Sposob 1');
          writeln('#');
        end;

      if(a<>22)then
        begin
          writeln('Sposob 2');
          writeln('#');
        end;
    end;
  readln();
end.  

Консоль:

Vvedite celoe chislo: 
56

Sposob 1
#
Sposob 2
#
Vvedite celoe chislo: 
22