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

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

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

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

Консоль:

vvedite chislo
12
#
vvedite chislo
2
#
vvedite chislo
3
#
vvedite chislo
22

Решение 2:

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

Консоль:

vvedite chislo
2
#
vvedite chislo
3
#
vvedite chislo
4
#
vvedite chislo
22