Урок 11 Задание 7

Задание 7 Урок 11

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

program Project1;
var c: integer;
 begin
  while c <> 22 do
  begin
  writeln('vvedite celoe chislo c:'); 
  readln(c); 
   if (c = 22) then
   break;
  writeln('#');
  end;
  writeln('Poka!');
  readln();
end. 

Консоль:

vvedite celoe chislo:
7
summa:7+0+1-8
vvedite celoe chislo:
4
summa:4+7+0-11
vvedite celoe chislo:
9
summa:9+4+7-20
vvedite celoe chislo:
2
summa:2+9+4-15
vvedite celoe chislo:
19
poka