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

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

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

var a:char;
begin
  repeat
    writeln('vvedite simvol');
    readln(a);
    if a<>'#' then
      writeln('&');
  until a='#';
  writeln('END');
  readln();
end.    

           

        
Вывод консоли:
vvedite simvol
1
&
vvedite simvol
3
&
vvedite simvol
g
&
vvedite simvol
#
END