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

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

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

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

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

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

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