Question

Что нужно сделать, для того чтобы программа не закрывалась, а продолжала работать заново? 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.

Answer 1

Для начала вот программа с исправленными ошибками.

А чтобы программа никогда не заканчивалась, можешь применить оператор goto (что не рекомендуется) или зациклить программу:

repeat

<ПРОГРАММА>

until FALSE;