Калькулятор Опции

[antonioSP]

Помогите плз с програмкой. Нужно сделать калькулятор считающий в разных системах счисления. В десятично я сделал, а как реализовать в других понятия не имею. Подскажите как лучше и проще это сделать.

[volvo]

antonioSP, ошибка далеко не там, где тебе кажется:

function stepen(a,n:integer):integer;
var s, i: integer;
begin
  s := 1; // <--- Вот это добавь !!!
  for i := 1 to n do s := s*a;
  stepen:=s;
end;

и деление на ноль не будет возникать