Решить все номера. самостоятельная по

Var a: array [1..10] of integer; i,k,m: integer; begin for i: = 1 to 10 do a[i]: = random(0,100); writeln(a); m: =a[1]; for i: =2 to 10 do if a[i]< m then m: =a[i]; m: =m*6; for i: = 1 to 10 do a[i]: = a[i]-m; writeln(a); end.