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

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

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

program U11Z7v1;
var a:integer;
begin
     while (a<>22) do
          begin
               writeln('vvedite celoe chislo:');
               readln(a);
               if (a<>22)then
                  writeln('#');
          end;
     writeln('poka');
     readln();
end. 

program U11Z7v2;
var a:integer;
begin
     while (a<>22) do
          begin
               writeln('vvedite celoe chislo:');
               readln(a);
               if (a=22)then
                  break;
               writeln('#');
          end;
     writeln('poka');
     readln();
end.