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

Использовать условные циклы repeat...until (условие) или while (условие) do

Я примерно понимаю это. Но если не трудно как это будет выглядеть в вышеуказанном примере? Спасибо.

uses crt;
var a, b, c: integer;
begin
  repeat
    write('a='); readln(a);
    write('b='); readln(b);
    c:= a+b;
    writeln('c=', c);
    writeln('Повторить? [y/n]');
  until upcase(readkey) <> 'Y';
end.

Пока будешь нажимать 'Y' или 'y' - программа будет начинаться заново.

Ясно спасибо.

А еще можно так:

А еще НУЖНО проверять то, что ты пишешь!

Как минимум 3 ошибки...

uses crt;
var a, b, c: integer;  !
...
  If a = 'y'  !
...  
end.

Хм.. не думаю, что компилятор это примет.. число равно символу(букве)?.. ты запускал код?

Та да.... может a - Char???

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