Число после запятой

[Cheerful Mushroom]

У меня есть такая задача: вводятся 2 числа M и N так, что M<N (я делал на примере 3 и 14). Мне надо вывести на экран число после запятой, но мне выводят такую ошибку: "Program1.pas(9) : Ошибка времени выполнения: Значение было недопустимо малым или недопустимо большим для Int32.".
Ни малейшего понятия почему так происходит. Ну а если существует оператор, выводящий число после запятой, то напишите его пожалуйста.
Заранее спасибо.

program test1;
var M,N:integer;
var Ch:uint64;
var D:real;
begin
  read(M,N);
  D:=M/N;
  writeln(D);
  Ch:= round(d*exp(15*ln(10)));
  writeln(Ch)
end.

[type_Oleg]

С трудом понял, что вам надо.
Может быть это?

 WriteLn(Frac(M/N));

При M=3, N=14 выведет 0.214285714285714
И если M=45, N=14 тоже 0.214285714285714

[Poma][a]

А какой ответ Вы ожидаете?
Вот скормили программке 3 и 14. Что она должна вернуть?

[Cheerful Mushroom]

Ну вот я ввел 3 и 14 а вывести она должна 214285714285714, то есть то, что после точки

[Вадим Мошев]

Сообщение от Cheerful Mushroom

Ну вот я ввел 3 и 14 а вывести она должна 214285714285714, то есть то, что после точки

Ну вам же ответили http://www.programmersforum.ru/showp...64&postcount=2

[Cheerful Mushroom]

Не, мне нужно не "0.214285714285714" , а "214285714285714".
Я сначала думал, что достаточно просто домножить 0.214285714285714 на 10^15 , но pascal выводил ошибку (которая описана в начале темы).

[Вадим Мошев]

Тогда переводите число в строку, убирайте первые два символа и выводите то, что останется на экран

program test1;
var M,N:integer;
	 	Ch:string;
 		D:real;

begin
  read(M,N);
  D:=M/N;
  
  str(D:5:10, Ch);
  delete(ch, 1, 2);
  WriteLn(Ch);
  
end.

[Cheerful Mushroom]

Все. Огромное вам спасибо

[Вадим Мошев]

Пожалуйста .

[Serge_Bliznykov]

Ну вот я ввел 3 и 14 а вывести она должна 214285714285714

так устроит?

program test1;
var M,N:integer;
var D:extended;
  s : string;
begin
{  read(M,N);}
  M:=3; N:=14;
  D:=M/N;
  WriteLn(D:0:16);
  str(frac(D):1:18,s);
  writeln(copy(s,3,Length(s)-3));
  Readln  
end.

уп-с... опоздал...