program calc;  
uses crt;  
var a,s,b:integer; c:char;  
begin       
     writeln('введите 1 число');       
     readln(a);       
     writeln('введите знак дейчтвия');       
     readln(c);       
     writeln('введите 2 число');       
     readln(b);      
     case c of            
         + : s:=a+b;           
          - : s:=a-b;           
         * : s:=a*b;           
          / : s:=a/b;       
     end;       
     writeln('ответ=',s);       
     repeat until keypressed;  
end.