嫁さんから↓の携帯メールを届いた。息子と会いたいです、５月ぐらい、息子が日本に来るように頑張っています。
嫁さんが今就職活動やっています。経済恐慌の影響でなかなか厳しいです。僕も頑張って儲けたいです、副業を探しています…　加油！

＞今日はいい天気だね！駅前の公園で保育園の子供だちをたくさん見た、小さくてかわいい、またうちの東東に恋しくなった

program FormatStr;

{$APPTYPE CONSOLE}
uses
  Classes,SysUtils;

var
  st1,st2: string;
  i,j,k: integer;
  r: real;

begin

  i:=10; j:=100;                         {コンソールに表示されたもの}
  Writeln(Format('%d',[i]));             {10}
  Writeln(Format('%3d',[i]));            { 10}

  Writeln(Format('%.3d',[i]));           {010}
  Writeln(Format('%03d',[i]));           { 10}
  Writeln(Format('Edit%d',[i]));         {Edit10}

  Writeln(Format('\%3.3d.',[i]));        {\010.}
  Writeln(Format('%d%%',[i]));           {10%}
  Writeln(Format(':%d',[i]));            {:10}

  Writeln(Format('XY%.3d',[i]));         {XY010}
  Writeln(Format('%d,%d',[i,j]));        {10,100}
  Readln;

  r:=i;

  k:=2;
  Writeln(Format('%f',[r]));             {10.00}
  Writeln(Format('%.0f',[r]));           {10}
  Writeln(Format('%4.2f',[r]));          {10.00}

  Writeln(Format('%2.3f ',[r]));         {10.000}
  Writeln(Format('%3.1f 倍',[r]));       {10.0 倍}
  Writeln(Format('%.7d  %f',[7,1.234])); {0000007  1.23}


  Writeln(Format('%n',[r]));             {10.00}
  Writeln(Format('%.0n',[r]));           {10}
  Writeln(Format('%*.*n',[i,k,r]));      {     10.00}

  Writeln(Format('%.0n',[r]));           {10}
  Writeln(Format('%10.0n',[r]));         {        10}

  Writeln(Format('%m',[r]));             {\10}

  Writeln(Format('%12m',[r]));           {         \10}

  Writeln(Format('%X%x%X%x',[i,i+1,i+2,j])); {ABC64}
  Writeln(Format('%x%x%x%x',[1,2,3,4])); {1234}

  Writeln(Format('%.4x',[i]));           {000A}
  Writeln(Format('%4X',[i]));            {   A}
  Writeln(Format('Icon Index is 0x%.4x',[i]));

                                         {Icon Index is 0x000A}
  Writeln(Format('$%02X',[i]));          {'$ A'}

  st1:='東京都'; st2:='出府愛二';

  Writeln(Format('%13s ',[st1]));        {       東京都}
  Writeln(Format('%-10s%-10s%.5d',[st1,st2,i]));
                                  {東京都    出府愛二  00010}

  Readln;

  r:=10.12345;
  Writeln(Format('%f',[r]));             {10.12}
  Writeln(Format('%.0f',[r]));           {10}

  Writeln(Format('%4.2f',[r]));          {10.12}
  Writeln(Format('%2.3f ',[r]));         {10.123}
  Writeln(Format('%3.1f 倍',[r]));       {10.1 倍}

  Writeln(Format('%.7d  %f',[7,1.234])); {0000007  1.23}
  Writeln(Format('%n',[r]));             {10.12}
  Writeln(Format('%.0n',[r]));           {10}

  Writeln(Format('%*.*n',[i,k,r]));      {     10.12}
  Writeln(Format('%.0n',[r]));           {10}
  Writeln(Format('%10.0n',[r]));         {        10}

  Writeln(Format('%m',[r]));             {\10}
  Writeln(Format('%12m',[r]));           {         \10}
  Readln;

  Writeln(FormatFloat('0##',i));         {010}

  Writeln(FormatFloat('#,##0',i));       {10}
  Writeln(FormatFloat('0000',i));        {0010}
  Writeln(FormatFloat('#,###',i));       {10}

  Writeln(FormatFloat('###.0',i));       {10.0}

  Writeln(FormatFloat('0##',r));         {010}
  Writeln(FormatFloat('#,##0',r));       {10}

  Writeln(FormatFloat('0000',r));        {0010}
  Writeln(FormatFloat('#,###',r));       {10}
  Writeln(FormatFloat('###.0',r));       {10.1}

  Readln;
end.

2008/05/09 早上   阵痛开始发作

2008/05/09 晚上   阵痛开始越加剧烈，体温有些高。37.6度

2008/05/10  8时   入住医院阵痛室，开始打点滴。医生说估计当天可以出生。

2008/05/10  12时  午餐，老婆吃不下，全被我吃了。

2008/05/10  13时  因为打的药水缘故，出现恶心呕吐现象。

2008/05/10  18时   接受检查，医生说当天出生不太可能，小孩会自己选择出生时间。看来他要选择母亲节出生了。

2008/05/10  19时   晚餐，老婆没胃口，又被我吃了，保存体力。

2008/05/10  7时 ～ 2008/05/11 7时  一宿没睡，期间阵痛断断续续，痛苦不已。

2008/05/11  7时10分 正讨论着小勇。小勇用力一蹬，破水。看来要出来了。

2008/05/11  7时20分 转入分娩室。

2008/05/11  7时30分 接受检查，子宫全开。不过离出生还有一段时间。老婆已经精疲力尽。继续接受点滴。保存体力。

2008/05/11  8时～12时  阵痛加剧，小勇徐徐爬动。Come on, my boy.

2008/05/11  12时45分  阵痛再次加剧，可以看见小勇的头了。助产师说快出来了。消毒，准备包裹衣服。

2008/05/11  12时54分  一声啼哭，小勇出生。刚出生的小孩没有传说中的血淋淋，实际上全身淡紫红色，有一层白白的膜。激动不已，无以言表。

体重：6斤6两6

身长：49.8厘米

48小时的疼痛过后，老婆得到一份母亲节最贵重的礼物。