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