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.