Вычислить объём и площадь поверхности параллелепипеда и составить алгоритм

Var a,b,c:real;s,v:real;beginreadln(a,b,c);v:=a*b*c;s:=2*(a*b+a*c+b*c);writeln(v);writeln(s);end.