Lazarus под Win32

[RSV]

Всем привет! У меня вот какая проблема.
В Lazarus(е) под Win32 в откомпилированном .exe
после ввода данных нажимаю Enter для получения
результата, а файл почему то закрывается. Хотя
в Lazarus(e) под Linux все работает.
Помогите разобратся. Заранее спасибо!!!

[Attid]

а по русски ?

[RSV]

а по русски ?

Извини, но я не понял твоего ответа на мой вопрос.
У меня Win XP, Lazarus - скаченный с
офсайта Lazarus-0.9.22-fpc-2.0.4-20070326-win32.exe

[Максим]

RSV
Как и Attid, я не понимаю сути вопроса. Пожалуйста, переформулируйте его.

[RSV]

RSV
Как и Attid, я не понимаю сути вопроса. Пожалуйста, переформулируйте его.

Запускаю откомпилированный екзешник см. код ниже.
ввожу сумму, затем ввожу необходимый тип, нажимаю ENTER
для вывода на экран результата, так вот в том .exe файле,
который собран под Linux результат отображается и окно файла не закрывается, а в .exe собраном под Win XP после нажатия ENTER
окно пропадает без вывода результата.

program Project1;
uses
Classes, SysUtils;
var x,v,z:double;t:byte;
begin
writeln('vvedite summu z');
readln(z);
writeln('vvedite type');
readln(t);
case t of
1:x:=(z/100)*10;
2:x:=(z/100)*15;
3:x:=(z/100)*20;
else
writeln('vybran ne vernyu type');
end;
v:=z+x;
writeln('v=', v);
end.

[vital]

Вывод результатов надо оформить следующим образом:

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

writeln('v=', v);
readln;

[halyavin]

Либо изначально запустить cmd, а из него уже - программу.

[Brainenjii]

Либо добавить crt и Repeat until keypressed ^_^

[Максим]

При использовании crt можно обойтись и добавлением Readkey;