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

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

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

program u12z5;
var a: char;
begin
repeat
  writeln('vvedite celoe chislo');
  readln(a);
    if (a <> '#') then
      writeln('&')
until (a = '#');
end.