отличие extended от double

[zla9_kolu4ka]

Если ввести 123456789123456789 везде, то почему то, что extended, что double отображают 14 чисел, хотя extended должен отображать больше чисел
Почему так?

Program dataType;
Procedure Main;
Var
i:real;
j:single;
k:double;
z:extended;
Begin
  Repeat
    Writeln('Введите i');
     Readln(i);
    Writeln('Введите j');
     Readln(j);
    Writeln('Введите k');
     Readln(k);
    Writeln('Введите z');
     Readln(z);
  Until (IOResult=0);
  writeln('real    ',i);
  writeln('single  ',j);
  writeln('double  ',k);
  writeln('extended',z);
End;

begin
  main;
end.

[Аватар]

Ну видимо умолчание такое. Попробуйте форматировать вывод

[Serge_Bliznykov]

взял ваш код. засунул в Delphi.
добавил модификаторы вывода

  writeln('real    ',i:20:0);
  writeln('single  ',j:20:0);
  writeln('double  ',k:20:0);
  writeln('extended',z:20:0);

получил:

real      123456789123456784
single    123456790519087104
double    123456789123456784
extended  123456789123456789