Напишите программу в паскале для решения : даны длины ребер прямоугольного параллелепипида. найти его объем и площадь поверхности. буду безумно !

Program task;
uses crt;
var 
a,b,c,s,v:extended;
begin
clrscr;
readln(a,b,c); {считываем три ребра с клавиатуры}
s:=2*(a*b+b*c+c*a);
v:=a*b*c;
writeln(v); {объем}
writeln(s); {площадь}
readkey;
end.