Написать программу в паскале, использующую функцию, которая возвращает значение…

var a, b: real; //Числа а и bfunction CalculateY (a, b: real): real; //Функция вычисления ybegin CalculateY: =sqr (a) — 5*(sqr (b)*b)+sqrt (4*a+b); end; begin writeln ('Введите числа а и b'); readln (a, b); //Вводим числа а и b writeln (CalculateY (a, b); //Печатаем возвращаемое функцией значение end.