Составить программу паскаль нахождение произведения квадратов трех натуральных чисел

Var
A,B,C:integer;
Begin
WriteLn('Введите три натуральных числа');
ReadLn(A,B,C);
WriteLn('P = ',A*A*B*B*C*C);
End.