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;

fb7f6f880d269f7acb0a6552a7aa0731.pas

Answer 2

спасибо большое