uses crt;
var m,n: integer;
{-------------------------------------}
Function Tong(a,b: integer): string;
begin
writeln(a+b);
end;
{-------------------------------------}
Function Hieu(a,b: integer): string;
begin
writeln(a-b);
end;
{-------------------------------------}
Function Tich(a,b: integer): string;
begin
writeln(a*b);
end;
{-------------------------------------}
BEGIN
clrscr;
write('Nhap m: '); readln(m);
write('Nhap n: '); readln(n);
writeln('m+n=',Tong(m,n));
writeln('m-n=',Hieu(m,n));
writeln('m*n=',Tich(m,n));
readln;
END.
