СРОЧНО!!!
На паскале надо составить программу!!!
Даны длины ребер прямоугольного параллелепипеда. Найти объем данного параллелепипеда (V=a*b*c) и площадь его поверхности ( S=2(a*b+b*c+a*c) ).
Формат вывода результата «Объем параллелепипеда с ребрами ___, ____ и ____ равен ____» и «Площадь поверхности параллелепипеда с ребрами ___, ____ и ____ равна ____»

спасибо

var a,b,c,v,s:integer;BEGINwriteln ('Введите длины сторон');readln(a); readln(b); readln(c);v:=a*b*s;s:=2*(a*b+a*c+b*c);writeln('Объем параллелепипеда с ребрами' ,a, ' , ' ,b, ' и ' ,c, 'равен ' ,v);writeln('Площадь поверхности параллелепипеда с ребрами' ,a, ' , ' ,b, ' и ' ,c, 'равна ' ,s);end.