Var numb1,numb2 :integer;
s:string;
begin
readln(s);
readln(numb1,numb2);
if (s = +) then
writeln(numb1+numb2);
if (s = -) then
writeln(numb1-numb2);
if (s = *) then
writeln(numb1*numb2);
if (s = /) then
writeln(numb1/numb2);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.