Calc

var x:char;
num1,num2:integer;
begin
readln(num1);
readln(x);
readln(num2);
case x of
'-':writeln('Ответ=',num1-num2);
'+':writeln('Ответ=',num1+num2);
'/':writeln('Ответ=',num1/num2);
'*':writeln('Ответ=',num1*num2);
else
writeln('Недопустимый формат');
end;
end.