Я пишу про пред вопрос с шаром судьбы. Мне тут один человек вроде как хотел помочь с кодом , а именно ( 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.