program testFunc; //return sqrt(number) function square_root(a : integer) : real; begin square_root := sqrt(a); end; begin writeln('sqrt(4) = ', square_root(4)); readln; end. {if you want to improve this code, please send code to me tranleduy1233@gmail.com}