Задание 7b Урок 11

Задание 7b Урок 11

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

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

var i : integer;
begin
  i := 1;

  while (i <> 0) do
  begin
    write('Введите целое число и нажмите ENTER:');
    readln(i);
    if (i = 22) then
      break;
    writeln(#35);
  end;
  readln();
end.