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
СРОЧНО ПОЖАЛУЙСТА