Модуль. Вывод.

[Genzal]

Программа полностью рабочая, подскажите в чём допущена ошибка, что она выводит так странно значения:

uses crt, Fraction; {Connect the module containing the calculation}

procedure InputNumbers(var x, k: real);{The procedure for entering two numbers}
begin
  repeat{The number must be positive}
    write('Enter the first number =');
    readln(x);
    if (x < 0) then
      writeln('Error! Please try again!');
  until (x >= 0);
  repeat{The number must be positive}
    write('Enter the second number =');
    readln(k);
    if (k < 0) then
      writeln('Error! Please try again!');
  until (k >= 0);
  writeln;
end;


procedure OutputNumbers(S, y: real);{Display procedure}
begin
  writeln('Arithmetic mean of two numbers S=', S);
  writeln('The fractional part of the number S=', y);
end;

{Main program with procedure call}
var
  s, k, x, y: real;
  g: integer;

begin
  repeat
    clrscr;
    writeln;
    writeln('The program is designed to find the fractional part of the mean');
    writeln('arithmetic two given positive real numbers.');
    writeln;
    InputNumbers(x, k);
    y := shot(x, k, s);
    OutputNumbers(S, y);
    writeln;
    writeln('To exit the program, enter the number 0,');
    writeln('if you want to restart a positive integer');
    repeat
      write('Your choice: ');
      readln(g);
      if (g < 0) then
        writeln('Error! Please try again!');
    until (g >= 0);
  until g = 0;
end.

[Serge_Bliznykov]

procedure OutputNumbers(S, y: real);{Display procedure}
begin
  writeln('Arithmetic mean of two numbers S=', S:1:5);
  writeln('The fractional part of the number S=', y:1:5);
end;

только это не ошибка. Паскаль выводит вещественные числа в экспоненциальной форме.
читайте про форматы вывода: http://physic.kemsu.ru/pub/library/l...oder/3_1_2.htm

[Genzal]

Понял