Что нужно сделать, для того чтобы программа не закрывалась, а продолжала работать заново? program kl; var x: byte; c,d,x1: real; begin repeat writeln(' введи c и d'); readln(c,d); if (c writeln('ты не правильно ввёл число, т.к. c until (c> d); x1: =c/d; x: =trunc(x1); writeln('x = ', x); x: =x+64; if x> 91 then writeln('такой буквы нет') else writeln('вот ответ'); writeln('the end'); readln; end.
А чтобы программа никогда не заканчивалась, можешь применить оператор goto (что не рекомендуется) или зациклить программу:
repeat
<ПРОГРАММА>
until FALSE;