Баналная проблема

[DoDo]

PROGRAM exampl_1;

BEGIN
writeln('DoDo');
END.

компилирую в My_first.exe
открываю а он вылетает сразу же.

[AiK]

Код: Выделить всё

PROGRAM exampl_1; 

BEGIN 
writeln('DoDo'); 
readln;
END. 

[Romeo]

Или readkey

[Naeel Maqsudov]

С readkey проблема.
Как только будет добавлен в uses модуль Crt (а readkey находится именно там), то программа начнет вылетать с ошибкой "Деление на 0" на быстрых машинах. Дело в том, что в разделе инициализации в модуле Crt присутствует вычисление размера счетчика для пустого цикла (для выполнения оператора Delay). Там за 1 тик таймера накапливается значение в делителе, на который делится некая коонстанта. На быстрых машинах за 1 тик таймера этот делитель переполняется.

[Рулин]

Crt модуль можно выправить, заменив пару строчек кода на NOP.
Заменять надо в строке B9 37 00 F7 F1 последние два байта на 90 90
Также лечутся и готовые программы под DOS, где вылет с ошибкой 200 сплошь и рядом.