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

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

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

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