Program baitap;

Uses crt;

Var M,N,S:integer;

      a:char;

Begin

Clrscr;

Write('M='); Readln(M);

Write('N='); Readln(N);

Write('Hay nhap ki hieu:'); Readln(a);

If a='+' then S:=M+N;

If a='-' then S:=M-N;

If a='*' then S:=M*N;

If a='/' then S:=M/N:7:2;

Writeln('Ket qua:',S);

Readln

End.

program bai_giai;
uses crt;
var n,m:longint;k:string;
begin
 clrscr;
  write('nhap so M:');readln(m);
  write('nhap so N:');readln(n);
  write('ban muon tinh phep gi:');readln(k);
  if(k='+')then write('tong cua M,N la:',m+n);
  if(k='-')then write('hieu cua M,N la:',m-n);
  if(k='*')then write('tich cua M,N la:',m*n);
  if(k='/')then write('thuong cua M,N la:',m/n:2:4);
 readln;
end.