Вопрос новичка. Опции

[Сибиряк 2]

Как закончить код программы чтоб после ее выполнения и нажатия ентер она возвращалась к первоначальному состоянию. Например var a, b, c: integer;
write('a='); readln(a);
write('b='); readln(b);
c:= a+b;
write('c')
end. Как после вывода ответа и нажатия ентер вернуться назад к вводу первого числа чтоб решить другой аналогичный пример? Спасибо.

Сообщение отредактировано: Сибиряк 2 - 19.08.2007 8:21

[2ral]

writeln('Повторить? [y/n]');
ReadLn (A);
If a = 'y'

ты используешь А как число и как символ. он компиляцию даже не пройдет!