Написать программу, которая заполняет два одномерных массива случайными числами. Получить третий массив, элементы которого равны произведению соответствующих элементов исходных массивов. Pascal ABC

const  n=15; { длина массива }type  tm=array[1..n] of integer;var  i:byte;  a,b,c:tm;begin  randomize;  for i:=1 to n do  begin    a[i]:=random(101-50);    b[i]:=random(101-50);    c[i]:=a[i]*b[i];    Write(a[i],' ')  end;  Writeln;  for i:=1 to n do  begin    Write(b[i],' ')  end;  Writeln;  for i:=1 to n do  begin    Write(c[i],' ')  end;  Writelnend.