Файл exe закрывается раньше времени

@LMapper · Регистрация: 27.09.2011

Author24 — интернет-сервис помощи студентам

Добрый день, вопрос туповат, но всё-же:
вот код проги, которая переводит Цельсия в другие Шкалы,
скомпилировал все норм, но - после вывода результата, .exe сразу закрывается,
как исправить ?(таймер или что-то другое, желательно все варианты).
Спасибо

Pascal

program Climate;
var
  Celsias,Frenheit,Kelvine:real;
begin
write('Введите температуру по шкале Цельсии =  ');
read (Celsias);
Frenheit:=Celsias*1.8+32;
Kelvine:=Celsias+273.15;
write('Температура по шкале Фаренгейта  = ',Frenheit);
writeln;
write('Температура по шкале Кельвина  = ',Kelvine);
end.

@Daemon025 · 27.09.2011, 17:45

добавь в конце readln;

@LMapper · 27.09.2011, 17:47 **[ТС]**

Не помогло.

@SuPeR XaKer · 27.09.2011, 17:56

read (Celsias);

замените на readln(Celsias);
и в конце (перед end) readln; как было сказано выше добавьте.

@LMapper · 27.09.2011, 17:59 **[ТС]**

Сообщение от SuPeR XaKer

замените на readln(Celsias);
и в конце (перед end) readln; как было сказано выше добавьте.

Спс, плюсик твой.

@Daemon025 382 / 330 / 159 Регистрация: 06.12.2010 Сообщений: 894
	27.09.2011, 17:45	2
	добавь в конце readln; 0

@LMapper 9 / 9 / 0 Регистрация: 27.09.2011 Сообщений: 97
	27.09.2011, 17:47 [ТС]	3
	Не помогло. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	27.09.2011, 17:56	4
	read (Celsias); замените на readln(Celsias); и в конце (перед end) readln; как было сказано выше добавьте. 1

@LMapper 9 / 9 / 0 Регистрация: 27.09.2011 Сообщений: 97
	27.09.2011, 17:59 [ТС]	5
	Сообщение от SuPeR XaKer замените на readln(Celsias); и в конце (перед end) readln; как было сказано выше добавьте. Спс, плюсик твой. 0