program oken;
uses crt;
var a,b: string;
c: char;
x,y,code: longint;
begin
clrscr;
write('Nhap xau a(phai la chu so): '); readln(a);
write('Nhap xau b(phai la chu so): '); readln(b);
write('Nhap phep tinh(dung dau): '); readln(c);
val(a,x,code); val(b,y,code);
case c of
'-': writeln(a,'-',b,'= ',x-y);
'+': writeln(a,'+',b,'= ',x+y);
'/': writeln(a,'/',b,'= ',x/y:0:3);
'*': writeln(a,'*',b,'= ',x*y);
end;
readln;
end.