[style007]

снова лезет эта Invalid floating point operation!!! может кто со свежей головой подскажет сразу что исправить нужно! Спасибо!

//строит последовательность случайных чисел методом произведений
procedure random_numbers(var a:mas; l1,l2:real; n :integer);
var t :real;
i,j,p,k1,k2 :integer;
begin
a[1] := l1;
a[2] := l2;
k1 := quantity_of_numbers(a[1]);
for i := 3 to n do
begin
a[i] := a[i-1]*a[i-2];
k2 := quantity_of_numbers(a[i]);
p := 1; // ВОТ ТУТ И ВЫСКАКИВАЕТ ERROR!!!
for j := 1 to ((k2 div 2) - (k1 div 2)) do
p := p * 10;

if t*10<1 then
p :=1;
for j := 1 to k1 do
p := p * 10;

end;

end;

[AlexSku]

Есть вариант, что ошибка не в этой команде, а в предыдущей строке. Напиши, пожалуйста, текст функции quantity_of_numbers.