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

[Zoom]

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

[Zoom]

Можь кто скажет почему у меня после умножения дробной части на 10 , в ответе выводится число со степенью 12(мне стока ноликов не надо)

Код

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

For i:=1 to 4 do begin
readln(a[i]);
y:=frac(a[i]);
x:=int(a[i]);
While frac(y)>0 do
begin
y:=y*10;
end;
writeln(x,' ',y);
end;
end.

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