если я не позабыл то вроде так
var
R:Real; {any real type}
begin
R := sqrt(2); // присваиваем корень из 2
WriteLn(r:4); // выводим на экран целое значение и 4 цифры после плавающей запятой
end.

Но я никогда не слышал чтго бы после строковых констант применяли такое