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

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

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

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

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

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