Точно и четко сформулировать условие задачи, которая решается в данной программе

Program Kr_2;

Var N, R, S, A, B, C, D : Integer;

Begin

WriteLn('Введите натуральные N, R, S: '); ReadLn(N, R, S);

A := N div 1000; B := N mod 1000 div 100;

C := N mod 100 div 10; D := N mod 10;

If (A * B * C * D = R * R) or (A * B * C * D = S * S * S)

Then WriteLn('Верно') Else WriteLn('Неверно')

End.

К данной программе поставить блок-схему