Program BTT;
Uses crt;
Var a,b: longint;
k: char;
Begin
Clrscr;
Write('Nhap a va b: '); Readln(a,b);
Write('Nhap ki tu: '); Readln(k);
If k='+' then Write('Tong la: ',a+b)
Else If k='-' then Write('Hieu la: ',a-b)
Else If k='*' then Write('Tich la: ',a*b)
Else If k='/' then Write('Thuong la: ',a/b:0:2)
Else Write('Khong hop le');
Readln
End.
