напишите пожплуйста программу по информатике в pascal

var  a, b, c, s, k, y: real;begin  readln(a, b, c);  s := (sqrt(3 * power(a, 4)) / (3 * c)) + 3 * b;  k := s + sqrt(abs(power(a, 3) - b - 2 * c));  y := k - s / (b * c) + sqrt(s);  writeln(y:0:4);end.