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

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

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

1-й способ:

var a: integer;
begin
    while (a <> 22) do
    begin
      write('Vvedite cheloe cislo - ');
      readln(a);
      if  (a <> 22) then
        writeln('#');
    end;
    readln();
end.   

2-й способ:

var a: integer;
begin
    while (a <> 22) do
    begin
      write('Vvedite cheloe cislo - ');
      readln(a);
      if  (a = 22) then
        break;
      writeln('#');
    end;
    readln();
end.