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

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

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

var i: char; // символьный тип данных
begin
  repeat    // начало тела цикла
    write ('Введите символ: ');
    readln(i);         // считываем введенный символ
    if (i <> '#') then // условие, если введенный символ не решетка
      writeln('&')    // выводим символ &
    else               // если введенный символ решетка
      break;           // прерываем цикл
    until (1=2); // делаем бесконечный цикл
  readln();
end.   

Вывод в консоли: