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

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

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

var i: integer;
begin
readln(i);
while (i<>0) do
begin
    if i<>22 then
    begin
        writeln('#');
        readln(i);
    end
    else
        break;
end;
end.