[ViNT]

Ну значит примерно так:

var
 s:string;
 r:real;
 b:integer;

begin
 s:=...//ввод
 r:=StringToReal(s,b);
 r:=... //вычисление

 //форматирование и вывод
 if trunc(r)=r then
  s:=''+r+'.00'
 else
  s:=''+r;
 ...//вывод s 


компилить не пробовал, но примерно так.