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

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

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

var i:char;
begin
  repeat
   writeln('vvedite simvol:');
   readln(i);
   if i ='#' then
      writeln('poka!')
   else
      writeln('&');
  until (i ='#');
  readln();
end.