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

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

var ch:char;
begin
  ch:='1';
  repeat
    writeln('Vvedite simvol: ');
    readln(ch);
    if(ch <> '#') then writeln('&')
    else break;
  until (ch='#');
end.  

Консоль:

Vvedite simvol: 
??

&
Vvedite simvol: 
s

&
Vvedite simvol: 
#