Написать программу для вычисления примера Х1(10)*Х2(8) - Х3(2), где (10,8,2) - системы счисления

program test;
var x1,x2,x3,p:integer;
function ItoS(val:integer):string;
var
_r:string;
begin
Str(val,_r);
ItoS:=_r;
end;
function ConvertToCS(val:integer;CS:integer):string;
var
_r,_r1:string;
_m,i:integer;
begin
_r:='';
if CS>16 then exit;
repeat
_m:=val mod CS;
val:=val div CS;
if _m<10 then
_r:=_r+ItoS(_m)
else
_r:=_r+chr(ord('A')+_m-10);
until val=0;
_r1:='';
for i:=length(_r) downto 1 do
_r1:=_r1+_r[i];
ConvertToCS:=_r1;
end;
begin
writeln ('Введите значение x1:');
readln (x1);
writeln ('Введите значение x2:');
readln (x2);
writeln ('Введите значение x3:');
readln (x3);
p:=x1*x2-x3;
writeln('Ответ 10-я:',p);
writeln('Ответ 8-я:',ConvertToCS(p,8));
writeln('Ответ 2-я:',ConvertToCS(p,2));
end.

 writeln(ConvertToCS(78965,14));
 writeln(ConvertToCS(454,8));

program test;
var x1,x2,x3,p,b:integer;
procedure F(a:integer);
begin
while (a div b)>0 do
begin
F(a div b);
a:= a mod b;
end;
write(a);
end;
begin
writeln ('Введите значение x1:');
readln (x1);
writeln ('Введите значение x2:');
readln (x2);
writeln ('Введите значение x3:');
readln (x3);
p:=x1*x2-x3;
writeln('Ответ 10-я:',p);
b:=8;
write('Ответ 8-я:');
F(p);
writeln;
b:=2;
write('Ответ 2-я:');
F(p);
end.