function rep(n,m: integer): integer;
var i,s,k: integer;
    pr: boolean;
begin
  pr:=true;
  s:=0; i:=1;
  while n>0 do
  begin
    k:=n mod 10;
    if k>m-1 then 
    begin
      pr:=false;
      break;
    end;        
    s:=s+k*i;
    n:=n div 10;
    i:=i*m;
  end;
  if pr then rep:=s
  else rep:=-1;
end;

// основная программа
var a,b: integer;
    c,d,f: int64;    
    s: string;
begin
  write('A B через пробел: ');
  readln(a,b);
  d:=rep(a,3); f:=rep(b,7);
  if (d>0) and (f>0) then
  begin
    writeln('в десятичной системе a = ',d);
    writeln('в десятичной системе b = ',f);
    c:=(d*d+f*f)*2;
    writeln('в десятичной системе c = ',c);
    s:='';
    while c>0 do
    begin
      a:=c mod 4;
      s:=chr(a+48)+s;
      c:=c div 4;
    end;
    writeln('в системе с основанием 4 с = ',s);
  end  
  else writeln('не допустимый ввод');
end.