C++ :

#include <stdio.h>
#include <iostream>
#include <string>
using namespace std;

int main() {
	//freopen("in.txt", "r", stdin);
	char s[111];
	int a,b,c;
	scanf("%s",s);
	sscanf(s,"%d*%d+%d=", &a,&b,&c);
	printf("%s%d", s,a*b+c);

}

Pascal :

var a,e,f,g:string; b,c,d,h,i,j,c1:longint;
begin
  readln(a);
  b:=pos('*',a);
  c:=pos('+',a);
  d:=pos('=',a);
  if b<c then
  begin
  e:=copy(a,1,b-1);
  f:=copy(a,b+1,c-b-1);
  g:=copy(a,c+1,d-c-1);
  val(e,h,c1);
  val(f,i,c1);
  val(g,j,c1);
  writeln(a,h*i+j);
  end
  else
  begin
  e:=copy(a,1,c-1);
  f:=copy(a,c+1,b-c-1);
  g:=copy(a,b+1,d-b-1);
  val(e,h,c1);
  val(f,i,c1);
  val(g,j,c1);
  writeln(a,h+i*j);
  end;
end.