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

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

var s: char;
begin

  while (s <> '#') do
  begin
    writeln('Vvedite simvol');
    readln(s);
    write('& ');
  end;
  writeln('Exit');
  readln();
end.