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

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

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

var i: integer;

begin
  i:=0;
  while (i <> 22) do
    begin
      writeln('vvedite chislo: ');
      readln(i);
        if (i<>22) then
          writeln('#')
        else
          break;
    end;


  writeln('<<konec>>');

  readln();

end.