Задача на массивы, Помогите пожалста Опции

[Zoom]

Дан массив из 5 вещественных чисел в нём надо найти элемент в котором наибольшее кол-во подряд идущих нулей нулей.

[Zoom]

Пользоваться строками запрещено. Пытаюсь перевести число в целое путём умножения его на 10 в цикле а потом с помощью div и mod находить каждый символ в числе. Но проблема почему то после выполнения числа получаются аж в 12 степени

Код

Program asd;
uses crt;
var i,k,y:longint;
s,s1:string;
a:array[1..4] of real;
begin
clrscr;
writeln('Vvedite 4 chisla');

For i:=1 to 4 do begin
readln(a[i]);

while frac(a[i])<>0 do
a[i]:=a[i]*10;
end;

For I:=1 to 4 do
{y:=round(a[i]);}
writeln(a[i]);
end.

Сообщение отредактировано: Zoom - 22.03.2008 17:19