Ввести одномерный массив. Все его элементы умножить в два раза; уменьшить на число а;разделить на первый элемент;каждый элемент>10 заменить на его квадратный корень — Pascal(Паскаль)

const
 n = 10;
var
 a:array[1..n] of integer;
 i,m:integer;
begin
 readln(m);
 for i:= 1 to n do begin
   a[i]:= random(20);
   write(a[i]:3);
   a[i]:=(a[i]*2-m) div a[1];
   if a[i] > 10 then a[i]:= round(sqrt(a[i]));
 end;
 writeln;
 for i:= 1 to n do
 write(a[i]:3);
end.