Отображение вывода (Delphi)

[Vampirius]

Собственно: программа под командную строку.
Необходимо чтобы на экран выводило не то как число записывается в ячейке памяти а в приемлемом виде.

[ОДИНОЧЕСТВО В СЕТИ]

Необходимо чтобы на экран выводило не то как число записывается в ячейке памяти а в приемлемом виде

пример можно поглядеть?

[Vampirius]

Исходный код

program Lab1z2;

{$APPTYPE CONSOLE}

uses
SysUtils;

//*********************************** **************
function rus(s:string):string;
var i:integer;
begin
for i:=1 to length(s)do
case s[i]of
'А'..'п':s[i]:=chr(ord(s[i])-64);
'р'..'я':s[i]:=chr(ord(s[i])-16);
end; //case
rus:=S
end;
//*********************************** **************
var
a,b,c,d,f:real;
begin
c:=3.14;
write(rus('введите радиус='));
readln(a);
b:=c*exp(ln(a)*2);//площадь круга
d:=2*c*a;//длина окружности
f:=1.3*c*exp(ln(a)*3);//обьём шара
writeln(rus('площадь круга'));
writeln('S=',round(b));
writeln(rus('длинна окружности'));
writeln('D=',round(d));
writeln(rus('обьем шара'));
writeln('V=',round(f));
readln;
end.

хочется чтобы он не округлял а выводил например значение с 4 знаками после запятой, но не в машинном виде

[Пепел Феникса]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

//*********************************** **************
function rus(s:string):string;
var i:integer;
begin
for i:=1 to length(s)do
case s[i]of
'А'..'п':s[i]:=chr(ord(s[i])-64);
'р'..'я':s[i]:=chr(ord(s[i])-16);
end; //case
rus:=S
end;
//*********************************** **************
var
a,b,c,d,f:real;
begin
c:=3.14;
write(rus('введите радиус='));
readln(a);
b:=c*exp(ln(a)*2);//площадь круга
d:=2*c*a;//длина окружности
f:=1.3*c*exp(ln(a)*3);//обьём шара
writeln(rus('площадь круга'));
writeln('S=',b:10:4);
writeln(rus('длина окружности'));
writeln('D=',d:10:4);
writeln(rus('обьем шара'));
writeln('V=',f:10:4);
readln;
end.

учим паскаль.

[Vampirius]

спасибо) теперь буду знать