Проблема в TDE Опции

[RathaR]

Возникла такая вот проблемка:
Задача, состоит в том, чтобы определить сколько кубиков можно поместить в здание формой цилиндра обрезаного вдоль его высоты, по линии диаметра(как ангар ) так чтобы все вместились и лежали ровно:
Саму програму то я собсно написал, но вот возникла проблема, до помеченой строчки прога просто не доходит, пропусскает её и все последующие...
Кампилятор TDE

program kyb;
var
      m,r,a,I:integer;
      kr,k:real;
begin
read(m,r,a);
k:=0;
I:=0;

while I*a<r do
  begin
   inc(I);
   kr:=2*r-2*sqrt(r*r-I*I*a*a );
   k:=k+int((2*r-kr)/a);
  end;

k:=k*(m div a);   {<=== эта строчка, и всё что дальше игнорируется}

write(k);
readln;
end. 

Интерено былобы узнать в чем ошибка

Сообщение отредактировано: RathaR - 21.07.2009 15:49

[volvo]

Во-первых, что такое TDE (не Турбо Дельфи имеется в виду?), а во вторых - какие данные ты вводишь?

[RathaR]

Во-первых, что такое TDE (не Турбо Дельфи имеется в виду?), а во вторых - какие данные ты вводишь?

Turbo Delphi Explorer

m - длинна помещения, R - радиус полукруга, a - ребро куба (ящика), меня собственно интересует больше не сама задача, а то почему программа кампилируэться, а вот при выполнении посл строки игнорирует, и это не впервые, на других задачах были подобные вещи: после обьявления файла и его открытия прога не хочет читать с него данные, в то время как эта же прога на TP всё делает