Алгоритм решения ребуса Опции

[$rvr4vr]

Составить алгоритм решения ребуса РАДАР=(Р+А+Д)^4. Строки использывать нелзя!!

[-Volvo-]

Цикл по трем переменным: R, A, D... Основное выражение внутри цикла:

    sum := R*10000 + A*1000 + D*100 + A*10 + R;
    rad_4 := sqr(sqr(R+A+D));
    if sum = rad_4 then
      writeln(':', r,a,d,a,r,'=',r,a,d,'^4');

(Набирал прямо здесь, так что могут быть ошибки в синтаксисе, хотя вряд-ли...)