задача 6 урок 12.1

задача 6 урок 12.1

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

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