program proba;
uses crt,highpr;
var a,b,c:hpr;
    d:hpr_arit;
procedure beolvas(var a:hpr);
var i:integer; ch:char;
    c: number; s:string absolute c;
begin
{  repeat
    write('A szamrendszer alapszama:'); readln(a.alap);
  until (a.alap in [2..16]);}
  write('A szam elojele:');readln(a.elojel);
  a.alap:=10;
  write('Kerem a szamot:'); readln(s);
{  i:=0;
  ch:=' ';
  while ch<>'v' do
    begin
      i:=i+1;
      readln(ch);
      a.szam[i]:=ch;
    end;
  a.hossz:=i-1;
  a.alap:=10;   }
  a.hossz:=length(s);
  for i:=a.hossz downto 1 do a.szam[a.hossz+1-i]:=c[i];
end;
procedure kiir(a:hpr; x:integer);
var i,j:integer;
begin
  i:=a.hossz;
  while (a.szam[i]='0') and (i>1) do i:=i-1;
  gotoxy(40-i,x);
  write(a.elojel);
  for  j:=i downto 1 do  write(a.szam[j]);
  writeln;
end;
begin
  clrscr;
  beolvas(a);
  beolvas(b);
  d.oszt(a,b,c);
  writeln;
  kiir(a,5);
  kiir(b,6);
  kiir(c,7);
  d.szor(b,c,a);
  kiir(a,8);
  readln;
end.