Урок 12.1. Задача 5.

Урок 12.1. Задача 4.

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

var a : char;
x : boolean;
begin
  x := true;
  repeat
    readln(a);
    if (a = '#') then
      x := false
    else
      writeln('&');
  until (x = false);
  readln();
end.