Program DemoProcedureStr;
Var
  Stroka : string;
  Chislo : integer;
  
Begin
  Chislo := 1560;
  Str(Chislo:8, Stroka);
  writeln(Stroka);              {выводится строка ' 1500'}
  
  Str(sin(Pi/5):6:4, Stroka);
  writeln(Stroka);              {выводится значение sin(π/5) с четырьмя знаками "после запятой":-)}  
End.