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

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