Пример программы на Pascal:

program SumCalculation;
var
num1, num2, sum: integer;
repeat_choice: char;
begin
repeat
writeln('Введите первое число: ');
readln(num1);
writeln('Введите второе число: ');
readln(num2);
sum := num1 + num2;
writeln('Сумма чисел ', num1, ' и ', num2, ' равна ', sum);
writeln('Хотите выполнить программу еще раз? (Y/N)');
readln(repeat_choice);
until (repeat_choice = 'N') or (repeat_choice = 'n');
end.

Эта программа находит сумму двух чисел, выводит результат и спрашивает пользователя, хочет ли он повторить операцию. Если пользователь вводит 'Y' или 'y', программа выполняется снова. Если пользователь вводит 'N' или 'n', программа завершается.