var R: Extended; S: string;begin R := Sin(Pi); Str(R:5:3, S); ShowMessage('The Sin of Pi is ' + S);end;
Writeln (Sin(Pi):0:1);
S:=format('%.2f',[sin(pi)]);
I get the same result too....