var
  Number, SqrtValue: Double;
begin
  Number := 100;
  SqrtValue := Sqrt(Number);
  //SqrtValue is 10.0

  WriteLn('result is ', SqrtValue:0:1);
end.