Ошибка: Вещественное переполнение

[SSSMERTB]

При выполнение программы появляется Ошибка: Вещественное переполнение. Помогите пожалуйста найти косяк в коде. Задание во вложении
56554.jpg. Заранее благодарю.

program prog5;
const	a: real = 2.5;
        K: real = 6;
	p: real = 3.5;
	b: array[1..4] of real = (2.5, 3.2, 4.5, 6.0);
	c: array[1..6] of integer = (1, 5, 8, 7, 6, 2);
var	y: real;

function X: real;
	var	i, j: integer;
	        sum, mult: real;
begin
	sum:=0;
	for i:=1 to 4 do sum:=sum + sqr(b[i]);
	mult:=1;
	for j:=1 to 6 do mult:=mult * c[j];
	X:=sum + mult;
end;

begin
	y:=exp(X) + (a + sin(x))/(K + cos(p));
	writeln('y=', y:5:3);
end.

[kventin_zhuk]

У вас после вычисления X получается очень большое, а вы в добавок ещё возводите экспоненту в степень X. Оттуда и переполнение.