Даны целые числа a1,…,a2…b1…..b25. Преобразовать последовательность b1,…,b25 по правилу :если ai<=0 , то b; увеличить в 10 раз иначе bi заменить нулями (i=1,...,25) - Pascal(Паскаль)

uses crt;
const n=12;
var a,b:array[1..n] of integer;
    i,j:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i],'  ');
 end;
Writeln;
for i:=1 to n do
 begin
  b[i]:=random(20)-10;
  Write(b[i],'  ');
 end;
Writeln;
for i:=1 to n do
 if a[i]<=0 then
  b[i]:=a[i]*10
 else
  b[i]:=0;
for i:=1 to n do
 Write(b[i],'  ');
Readln;
end.