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

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.