Я своего друга учу паскалю, и он хочет чтобы у него работало приложение отдельно от оболочки.
Я сделал все что нужно и установил сохранение exe файла в отдельную папку
Запускаю файл, она выполняет цикл и после этого завершается программа, хотя там есть еще пару строчек кода
Однако если запускать через оболочку, программа работает исправно
Не могу понять в чем проблема!
var otvet,ans,attempts:integer;
begin
otvet:=random(100);
writeln('Привет,это игра "Угадай число",правила просты.');
writeln('Отгадай число загаданное,мной,ВЕЛИЧАЙШЕЙ В МИРЕ ПЕКАРНЕЙ ВСЕЯ РУСИ.');
readln(ans);
while(ans <> otvet) do
begin
attempts:=attempts+1;
if(ans < otvet) then begin writeln('Мое число больше!'); ans := otvet; readln(ans); end
else if(ans > otvet) then begin writeln('Мое число меньше!'); ans := otvet; readln(ans); end
end;
writeln('Молодец, ты меня победил!');
writeln('Твое количество попыток: '+ attempts);
end.
P.S. Игра угадать число