Обусловьте объем прямоугольного параллелепипеда по его граням Нужна программка для паскаля

program zz1;
var a,b,c,V:integer;
begin
writeln(Введите первую сторону параллелепипеда);
readln(a); //вводим с клавиатуры первую сторону параллелепипеда
writeln(Введите вторую сторону параллелепипеда);
readln(b); //вводим с клавиатуры вторую сторону параллелепипеда
writeln(Введите третью сторону параллелепипеда);
readln(c); //вводим с клавиатуры третью сторону параллелепипеда
V:=a*b*c; //обретаем объём по формуле параллелепипеда
write(Объём параллелепипеда равен - , V); //выводим ответ
end.