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

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

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

program U12_1Z3;
var s: char;
begin
  repeat
    writeln('vvedite simvol');
    readln(s);
    if (s <> '#') then
      writeln('&');
  until (s = '#');
  writeln('programma zavershena');
  readln();
end.