Exercício 7!

.Escreva uma função que receba um numero real que retorne uma string 

correspondente ao numero recebido.Com o mesmo convertido para string com o 

tamanho mínimo e com 2 casas decimais e com uma virgula no ponto decimal.

Function Conversão(x:real):string

Var P:Byte

S:String

Begin

Str(x;0;z;s);

P:=10s(‘,’,s);

S[P]:= ‘ , ’;

Conversão:=S

End;