Урок 12.1 Задание 6

Задание 6 Урок 12.1

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

var a: char;
begin
 repeat
   writeln ('введи символ и нажми Enter');
   readln (a);
   if a='#' then
     break
    else
     writeln ('&');
  until (a='#');
    writeln('Конец');
readln();
end.

Консоль:

введи символ и нажми Enter
*
&
введи символ и нажми Enter
№
&
введи символ и на�ми Enter
№
&
введи символ и нажми Enter
#
Конец