Lord Skill
Код:
var
h: extended;
f: text;
begin
h := 1000000000 * 5.3;
h := 1000000000 * h;
assign(f, 'qwe.txt');
rewrite(f);
writeln(f,h:0:0);
close(f);
readln;
end.
вообще просто при выводе в файл пишешь имя переменной и :0:0 - это если число положительное
если отрицательное - то вместо второго нуля поставь число, которое тебе нужно (например, 5) - и после запятой будет пять знаков