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

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

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

1) С использованием if()

var
  i:integer;
begin
  i:=1;
  while (i <> 22) do
  begin
   writeln('Vvedite i: ');
   readln(i);
    if (i <> 22) then
     writeln('#');
  end;
  readln();
end. 

2) С использованием break;

var
i:integer;
begin
  i:=1;
  while (i <> 22) do
  begin
   writeln('Vvedite i: ');
   readln(i);
    if (i <> 22) then
     writeln('#')
    else
      break;
  end;
  readln();
end.