Пожалуста составьте программу которая находит сумму 2 чисел на Паскале. И чтобы программа повторялась каждый раз без перезапуска (цикл)

program calc;var a, b, c : real;begin repeat writeln("Введите 2 числа:"); readln(a, b); c := a + b; writeln("Сумма: ", c); until false;end.