Создать программу, округляющую и выводящую на экран вещественное число, введенное пользователем с клавиатуры в переменную типа double. подсказка: операцию округления числа можно получить как композицию операции к целому типу и ещё одной арифметической операции.
var
x: double;
res: integer;
func: real;
function fraction(x: real): real;
begin
fraction := x - Int(x);
end;
begin
readln(x);
func := fraction(x);
if (func >= 0.5) then
writeln(Int(x) + 1) else
writeln(Int(x));
end.