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

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

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

program u11z7;
var a:integer;
begin
 while (a <> 22) do
 begin
   writeln('vvedite chislo');
   readln(a);
  if (a <> 22) then
   writeln('#') else
    write();
  end;
  readln();
end. 

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