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

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

var a: char;

begin
readln(a);
  while (a <> '#') do
        begin
          writeln('&');
          readln(a);
        end;
  writeln('Konez Programi');
readln();
end.