Задача 3 урок 12

http://fkn.ktu10.com/?q=node/8674

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

program task3_lesson12;
var i : char;
begin
  repeat
    write('enter char : ');
    readln(i);
    writeln('&');
  until (i = '#');
end.