Написать программу вычисления полной площади и объёма параллелепипеда,помогите пожалуйста

VarA,B,C:real;BeginWrite('Длина = ');ReadLn(A);Write('Ширина = ');ReadLn(B);Write('Высота = ');ReadLn(C);WriteLn('Площадь полной поверхности = ',2*(A*B+B*C+C*A));WriteLn('Объём = ',A*B*C)End.