//Пример №12
program std_fun;
var x:real;
begin
writeln('Введите вещественное число');
readln(x);
writeln('Модуль числа — ', abs(x));
writeln('Квадратный корень числа — ', sqrt(x));
writeln('Квадрат числа равен — ', sqr(x));
writeln('Целая часть числа — ', trunc(x));
writeln('Округление числа до ближайшего целого — ', round(x));
writeln('Дробная часть числа — ', frac(x));
end.