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

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