Я пишу про пред вопрос с шаром судьбы. Мне тут один человек вроде как хотел с кодом , а именно ( uxaisha586) ,но я потерял с ним(нею) связь.
Поэтому , можно сделать так что бы можно было бесконечно задавать вопросы в этом коде? Это Паскаль если что .

Нужно использовать цикл, это довольно просто.

Используем конструкцию:

while true do

  begin  

  end;

Цикл будет выполняться бесконечно.

Если на твой код смотреть, то "while true do begin " вставляешь перед началом программы, а end после "end;", относящегося к case of.

Максимально простой пример:

program ss;

var a : integer;

begin

while true do

begin

writeln('Введите a: ');

readln(a);

case a of

1: writeln('q');

2: writeln('ne q');

end;

end;

end.