2 уравнение верно. в первом уравнении не будет ли правильно записать так?
Program ArtemM;
Uses Crt;
Var M,a,b:Real;
Begin
Writeln(\'a=\');
Readln(a);
Writeln(\'b=\');
Readln(b);
M:=sqr(sin(a))*sin(a)+cos(2*sqrt(b)/exp(b+2*a)+5*ln*(b/3*a);
Writeln(\'M=\', M:2:2);
end.

ЗЛО, ещё один оффтоп и ты в бан уйдешь.

не оффтопьте.