На паскале надо составить ! даны длины ребер прямоугольного параллелепипеда. найти объем данного параллелепипеда (v=a*b*c) и площадь его поверхности ( s=2(a*b+b*c+a*c) ). формат вывода результата «объем параллелепипеда с ребрами и равен » и «площадь поверхности параллелепипеда с ребрами и равна »

Var a,b,c,v,s:integer;
BEGIN
writeln ('Введите длины сторон');
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.