Решение задачи 3 из главы 12.1

Решение задачи 3 из главы 12.1

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

program Project3;
var a: char;
begin
  writeln('Vvedite simvol:');
  readln(a);
  repeat
    writeln('&');
    writeln('Vvedite simvol:');
    readln(a);
    if (a='#') then
       writeln('Konez!');
  until a='#';
end.