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

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

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

var
  i: integer;
begin
  i:= 1;
  while i <> 22 do
        begin
          write('Vvedite celoe chislo: ');
          readln(i);
          //if (i <> 22) then
          //   writeln ('#');
          if (i = 22) then
             break;
          writeln ('#');
        end;
  writeln('Cikl zaverschen.');
  readln();
end.