в результате выполнения фрагмента программы: x:=7.8; writeln (round(x));

После выполнения данного фрагмента программы значение переменной x будет округлено к ближайшему целому числу. В данном случае, значение переменной x равно 7.8, и после применения функции round(x), получим результат, равный 8, так как 7.8 ближе к 8, чем к 7.