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

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

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

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

var a: integer;
begin

     while a < 22 do
     begin
          writeln('Enter an integer: ');
          readln(a); // пользователь вводит целое число
          if (a <> 22) then
             writeln('#'); // в консоль выводится #, если a <> 22
     end;

     writeln('End', 'a = 22');

     readln();

end.  

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

var a: integer; 
begin

     while a < 22 do
     begin
          writeln('Enter an integer: ');
          readln(a); // пользователь вводит целое число
          if (a = 22) then
             break; // цикл завершается если a = 22
          writeln('#'); // в консоль выводится #, если a <> 22
     end;

     writeln('End: ', 'a = 22');

     readln();

end.