Программа на языке Pascal:

program calculate_C;
var
A, B, C, A_dec, B_dec: integer;
function toDecimal(number, base: integer): integer;
var
dec, power, digit: integer;
begin
dec := 0;
power := 0;
while number <> 0 do
begin
digit := number mod 10;
dec := dec + digit * round(power(base, power));
power := power + 1;
number := number div 10;
end;
toDecimal := dec;
end;
begin
writeln('Введите число А в троичной системе счисления:');
readln(A);
writeln('Введите число B в семеричной системе счисления:');
readln(B);
// Преобразуем числа в десятичную систему счисления
A_dec := toDecimal(A, 3);
B_dec := toDecimal(B, 7);
// Вычисляем значение C по формуле
C := 2 * (A_dec * A_dec + B_dec * B_dec);
// Выводим результат в десятичной системе счисления
writeln('Значение C в десятичной системе счисления: ', C);
// Преобразуем значение C в четверичную систему счисления
write('Значение C в четверичной системе счисления: ');
repeat
write(C mod 4);
C := C div 4;
until C = 0;
writeln();
end.

После запуска программы введите число А в троичной системе счисления и число B в семеричной системе счисления. Программа вычислит значение С по указанной формуле и выведет его на экран в десятичной и четверичной системах счисления.