program variant_case;
var
a,b:integer;
c: string;
variant:integer;
begin
writeln('Введите два числа.');
readln(a,b);
writeln('Введите символ математической операции.');
readln(c);
if (c='+') then variant:=1
  else if (c='-') then variant:=2
   else if (c='*') then variant:=3
     else if (c='/') then variant:=4
      else writeln('Введен неверный симол матеметической операции');
Case variant of
1: writeln('Ответ ',a+b);
2: writeln('Ответ ',a-b);
3: writeln('Ответ ',a*b);
4: writeln('Ответ ',a/b);
end;
end.