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