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

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

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

var i : integer;
begin
  i := 0;

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