program MyFirstCalc;
Var oper:char;
    num1,num2:integer;
begin
    readln(num1);
    readln(oper);
    readln(num2);
    case oper of
        '-':writeln('Ответ = ', num1 - num2);
        '+':writeln('Ответ = ', num1 + num2);
        '*':writeln('Ответ = ', num1 * num2);
        '/':writeln('Ответ = ', num1 / num2);
    else
        writeln('Неверный формат');
    end;
end.