Очень прошу, помогите! Только скажите ответ числом, пожалуйстаProgram Primer;VarM,result :

Очень прошу, помогите! Только скажите ответ числом, пожалуйста

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

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