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

Задача 7.2 Урок 11:

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

var a: integer;
begin

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

  write('poka!');
  readln();
end. 

КОНСОЛЬ:

vvedite celoe chislo:
5
#
vvedite celoe chislo:
10
#
vvedite celoe chislo:
22
poka!