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

http://fkn.ktu10.com/?q=node/8674

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

program Hello;
var a: char;

begin

  repeat
    writeln('Vvedite simvol');
    readln(a); 
    if a <> '&'then
      writeln('#');
  until(a = '&');

end.

КОНСОЛЬ

Vvedite simvol
15
#
Vvedite simvol
&