Программа в PASCALABC.NET

 ## 
var (x, y) := ReadReal2('Введите x и y:'); 
var (N, i, sum) := (11.3 * Sqrt(y + 6), 1, 0.0); 
repeat 
  sum += i * i; 
  Inc(i) 
until i > 10; 
N -= 5 * x * sum; 
Print(N)