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

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

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

program task5;
var a: char;
begin
  repeat
    writeln ('Vvedite simvol');
    readln (a);
    if (a='#') then
      break;
    writeln ('&');
  until (a='#');
  readln();
end.