сформулировать условие задачи

[rider1203]

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

	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.

 

[zardoz]

Дано три натуральных числа N, R, S. Определить: является ли произведение цифр числа N равным квадрату числа R или кубу числа S. Числа должны вводиться с клавиатуры. N находится в диапазоне [0, 10000).

 

[rider1203]

Дано три натуральных числа N, R, S. Определить: является ли произведение цифр числа N равным квадрату числа R или кубу числа S. Числа должны вводиться с клавиатуры. N находится в диапазоне [0, 10000).

Огромное спасибо)

P.S. Тему можно закрыть