Урок №12.1 Задание 6

Урок №12.1 Задание 6

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

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

Консоль:

1
&
2
&
#