[poli-smen]

Код:

var
  ir: Integer;
  r: Char;
begin
  case ir of
    1: r:='+';
    2: r:='-';
    3: r:='*';
    4: r:='/';
  end;
end;