Задачи на линейные алгоритмы

1. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = abc и площадь поверхности S = 2(ab + bc + ac).


program parallelipiped;
 var a,b,c: integer;
 var  V,S: real; 
 begin 
 a:=6;
 b:=3;
 c:=9; 
 V:=a*b*c;
 S:=2*(a*b+b*c+a*c);
 writeln (V); 
 writeln (S);

 end