Задача 3 Урок 12.1 Repeat/Until

Repeat/Until

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

var a:char;
begin
  repeat
    write('write your symbol ');
    readln(a);
    writeln('&');
  until (a = '#');
  write('over');
  readln();
end.