не понял задания. если придумать цепочку рассуждений оканчивающую на 5, то
35-30-25-20-15-10-5. - табл умножения
1-2-3-4-5. - счет от единицы
var x,z:real;
begin
writeln('Вычислить значение выражения по формуле y= (1+sin(SQRT(x+1)))/(cos(12*z-4))');
write('Введите число X: '); readln(x);
write('Введите число Z: '); readln(z);
writeln('y= ',(1+sin(sqrt(x+1)))/(cos(12*z-4)):0:2);
end.