Program Primer;
Var
M,result : real;
Begin
  Writeln('Введите значения переменной M');
  Write('M=');
  Readln(M);
  Result := sqr((2+M)*10);
  Writeln ('sqr((2+M)*10)', result:8:0);
  Readln;
End.


Запусти Паскаль, введи данную программу, получи результат, если M=4.