Program primer; var m,result : real; begin writeln('введите значения переменной m'); write('m='); readln(m); result : = sqr((5+m)*9); writeln ('sqr((5+m)*9)', result: 8: 0); readln; end. запусти паскаль, введи данную программу, получи результат, если m=4