Программа находит сумму двух чисел и продолжает работать до тех пор, пока пользователь не введет команду для выхода из программы.

program SumOfTwoNumbers;
var
num1, num2, sum: integer;
exitProgram: boolean;
userInput: string;
begin
exitProgram := false;
repeat
writeln('Введите два числа для сложения:');
readln(num1);
readln(num2);
sum := num1 + num2;
writeln('Сумма двух чисел: ', sum);
writeln('Хотите продолжить работу? (Y/N)');
readln(userInput);
if (userInput = 'N') or (userInput = 'n') then
exitProgram := true;
until exitProgram;
end.

Для запуска программы вам нужно скопировать код в среду программирования Pascal и запустить программу. После каждого расчета суммы двух чисел программа будет запрашивать ваше согласие на продолжение или завершение работы.