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

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

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

var i: char;
begin
  repeat
    writeln('Введите символ: ');
    readln(i);
    if (i <> '#') then writeln('&');
  until i = '#';
  readln();
end.