Можно достать левой ногой правое ухо и последовательно использовать операции
приведения типов . Логика такая.
- Вот получен ответ. Он явно типа Real.
- Умножаете результат на 100.
- Приводите к Integer, ввиду чего откусывается дробная часть.
- Потом опять приводите к Real.
- Делите на 100.
- ...
- PROFIT!!!
Пример кода, как это работает. Знаю, что коряво и можно проще и короче.
begin
var a: integer;
var b: real;
var c: real;
b := 0.07078238237; //допустим, это наше вводное значение
b := b * 100; //при умножении на 100 получаем 0.07078238237 → 7.078238237
a := integer (b); //в ранее объявленную целочисленную переменную откусываем только целую часть переменной b, то есть, в нашем случае, семерку
c := real (a) / 100; //вещественной переменной c присваиваем целочисленное значение a, поделенное на 100, которое сначала приводим обратно в вещественный вид
writeln (c); // выдаст 0.07
end.