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

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

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

program Pr11_7_1;
var a:integer;
begin
  while (a<>22) do
    begin
      writeln('Введите число: ');
      readln(a);
      if (a<>22) then writeln('#');
    end;
  writeln('End');
  readln();
end.

program Pr11_7_2;
var a:integer;
begin
  while (a<>22) do
    begin
      writeln('Введите число: ');
      readln(a);
      if (a<>22) then
         writeln('#')
      else
         break;
    end;
  writeln('End');
  readln();
end.

Консоль:

Введите число:
1
#
Введите число:
2
#
Введите число:
22
End