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

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

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

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