Проблема в 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]

вход данные 4 3 2
выход данные должно быть 4

Только не в твоей программе, твоя программа вылетает при таких данных, потому, что при I = 2 выражение под корнем = (-7). Ищи ошибку...

Кстати, ты забыл второй строкой программы директиву

{$APPTYPE CONSOLE}

. Без нее у тебя программа вылетит при выполнении readln