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

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

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

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

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

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

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