Задача 3 Урок 12.1

http://fkn.ktu10.com/?q=node/8674
Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

var a,b: char;
begin
repeat
writeln ('введи символ и нажми Enter');
readln (a);
b:='#';
if a=b then break
else
writeln ('&');
until (a=b);
end.