Сост алг замены элементов массива от В[N], не больших 15, их кубами

Const n=10; k=15; var a: array[1… 50] of integer; i: integer; begin for i: =1 to n do begin a[i]: =random (40); write (a[i]: 7); if a[i] < 15 then a[i]: =a[i]*a[i]*a[i]; end; writeln; for i: =1 to n do write (a[i]: 7); end.