uses crt; var a,b,i:longint; d:char; s:string; begin clrscr; readln(s); while pos(' ',s) <> 0 do delete(s,pos(' ',s),1); for i:=1 to length(s) do if not(s[i] in ['0'..'9']) then begin d:=s[i]; break; end; val(copy(s,1,i-1),a); val(copy(s,i+1,length(s)-i),b); case d of '+':writeln(a+b); '-':writeln(a-b); '*':writeln(a*b); '/':writeln(a/b:0:1); 'D':writeln(a div b); 'M':writeln(a mod b); end; readln; end.
