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

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

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

program Variant2;
var a: char;
begin
  repeat
    writeln('vvedi chislo');
    readln(a);
    if (a <> '&') then
      writeln('#');
  until (a = '&');

end.