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

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

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

var a: char;

begin
  repeat
    writeln('vvedite simvol : ');
    readln(a);
    if a<>'#' then
      writeln('&');
  until a='#';
  writeln('<<<Konec>>>!');
  readln();
end.