Решение 1 Задача 7 Урок 11

Урок 11

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

var a: integer;

begin
  writeln('Vvedite celoe chislo');
  readln(a);

  while a <> 22 do
  begin

      writeln('#');

    writeln('Vvedite celoe chislo');
    readln(a);

  end;

end.

КОНСОЛЬ

Vvedite celoe chislo
1
#
Vvedite celoe chislo
-1
#
Vvedite celoe chislo
10
#
Vvedite celoe chislo
22