2. Докажите закон поглощения _ Av(А^B) = AvВ

Var
   X,Y,K:integer;
   E,p:real;
Begin
Write('Сколько яблок в наличии: ');ReadLn(X);
Write('Сколько человек: ');ReadLn(Y);
Write('Сколько долларов за одно яблоко: ');ReadLn(E);
Write('Сколько рублей за один доллар: ');ReadLn(p);
if X mod 5 <> 0 then K:=X+5-(X mod 5)
else K:=X;
While K/Y<1.66 do K:=K+5;
WriteLn('Требуемое количество яблок: ',K);
WriteLn('Столько яблок придётся докупить: ',K-X);
WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.');
End.

Пример:

Сколько яблок в наличии: 1
Сколько человек: 3
Сколько долларов за одно яблоко: 50
Сколько рублей за один доллар: 0.05
Требуемое количество яблок: 5
Столько яблок придётся докупить: 4
Стоимость докупленных яблок: 10.00 руб.

Замечание: контроль правильности ввода не выполняется.
#include <stdio.h>

int main(void) {
  int a_8, a_10, a_5, b, c;
  printf("Введите число в восьмеричной системе счисления: ");
  scanf("%d",&a_8);
  b = a_8;
  a_10 = 0; c = 1;
  while (b>0) {
    a_10 += c*(b % 10);
    c *= 8;
    b /= 10;
  }
  b = a_10;
  a_5 = 0; c = 1;
  while (b>0) {
    a_5 += c*(b % 5);
    c *= 10;
    b /= 5;
  }
  printf("%d(8) = %d(10) = %d(5)",a_8,a_10,a_5);
  return 0;
}

Пример:
Введите число в восьмеричной системе счисления: 2014
2014(8) = 1036(10) = 13121(5)