Размеры 12 параллелепипедов (длина, ширина ,высота), хранятся в трех массивах. Вывести на экран объемы каждой фигуры — Pascal(Паскаль)

program z1;

uses crt;

const
  n = 12;

type
  massiv = array [1 .. n] of integer;

var
  a: massiv;
  b: massiv;
  c: massiv;
  i, m: integer;

Begin
  Randomize;
  for i := 1 to n do
  begin
    a[i] := random(10) + 1;
    b[i] := random(10) + 1;
    c[i] := random(10) + 1;
  end;

  for i := 1 to n do
    writeln('V(', i, ')=', a[i] * b[i] * c[i]);

End.